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EDITORIAL 


Chers amis, 


Nous sommes envahis par les Nibbles. Vous les avez probablement rencontrés au 
détour d'une ligne ou d’une colonne, ces petits êtres se révèlent très encombrants, 
deux fois plus nombreux que les Octets, ils ne nous laissent plus. 


Si vous parvenez à maitriser quelques uns d'entre-eux, lisez attentivement les 
conseils de la rubrique "AH ! Vous écrivez" et faites-nous part de vos découvertes. 


Ce mois-ci un article HARD pour (enfin) favoriser la communication par HPIL. 
Des excuses pour le dernier numéro dans lequel le poisson d'Avril a été trop bien 
reçu puisque beaucoup d’entre vous ont cru à l'arrivée d’un nouveau HP72c. 
Espérons qu’un jour ce ne soit pas un bobard. 

Le mois prochain, c'est bientôt pour celui qui réalise la maquette, nous publierons 
la liste officielle des points d'entrée dans le système d'exploitation telle qu’HP 
vient de la redéfinir. 


Puis ee sera les vacances... 


J.J. DHENIN 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en péride de vacances scolaires) au : 
Centre de Jeunesse et de Loisirs Jean Verdier 

11 rue de Lancry 

75010 Paris 

et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s'offrent à vous : 
- Métro Stransbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs. 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ah, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 

La date de la prochaine réunion : 

Samedi 7 juin 1986 


Pierre DAVID 
(P#37, SIG#1) 
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AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais Vous ne savez 
pas sous quelle forme l'équipe de rédaction 
souhaite recevoir votre prose (ou vos vers) ! 
C'est Îci que se trouvent Les réponses à vos 
questions. | 


Dans La mesure du possible vous devez nous 


envoyer vos écrits sur support magnétique : 
carte, cassette ou disquette. Soyez sans 
crainte, nous vous retournerons vos biens après 
copie. 


Si vous ne pouvez pss utiliser de 
magnétique, parce que vous habitez dans les 
Cévennes, qu'il n'y a pas un seul autre membre 
du club à 100 km à La ronde, et eucun revendeur 
HP pour vous permettre de faire votre copie 
alors et alors seulement, faites-le sur papier. 


support 


COMMENT FORMATER VOTRE TEXTE 


Que ce soit sur une feuille de papier ou sur 
support magnétique, respectez Le format JIPSIEN 
(50 caractères par Ligne approximativement). 


Pourquoi ? Imaginez les difficultés rencontrées 
par l'équipe de rédaction pour visusliser des 
Lignes de 96 caractères, voire davantage ! 


Utilisez des fichiers textes dans 
possible. Si vous ne possédez pas de module Text 
Editor, et dans ce cas seulement, rédigez votre 
texte dans un BASIC sous forme de remarques. 
Mais Soyez conscients que le travail 
d'élimination des numéros de Lignes prend du 


la mesure du 


temps. D'ailleurs nous pouvons vous fournir un 
programme éditeur de texte (pour l'instant 
moitié BASIC, moité LEX, prochainement 


entièrement en ASSEMBLEUR). 


Préparez votre texte pour que le travail de 
formattage soit Le plus court possible. Pour 
celse, utilisez Les 2 symboles “"*# et "\* décrits 
dans le formateur JIPSIEN : 





“*# est utilisé pour centrer une ligne : 
Ex : “TITRE 
“\“  L[CHRS(92)) 


est utilisé pour délimiter Les 
paragraphes : 


Ex : 

\Début du paragraphe exprimant Le contenu de 
vos idées, qui mème si vous en doutez 
intéressera certains des membres du club. 
Surtout si vous vous sentez débutant. Les 
articles pour . débutants écrits par des 
débutants, sont ceux qui manquent Le plus. Fin 
de votre paragraphe.\ 


Sautez une ligne entre chaque paragraphes, deux 
Lignes entre Le titre et votre erticle et deux 
Lignes entre votre article et votre signature. 


Ne soulignez pas Les titres et ne laissez pas 
les caractères de formattage du module “Editeur 
de Texte". 


Ne prenez pas FRALEX pour mettre vos accents. 
Cela nous obligerait à passer votre texte au 
peigne fin pour remplacer chaque caractère 
spécial per son équivalent en ROMANS (police de 
caractères de La THINKJET et de La LASERJET). 
Nous pouvons vous fournir un ÆCHARSET ROMANB et 
un jeu de touches assignées très pratique. 


Relisez bien votre article. Nous passons une 
centaine d'heures à cheque journal pour modifier 
l'orthographe ou Le syntaxe de vos articles. 11 
est préférable de répartir ce temps-homme entre 
plusieurs personnes (les auteurs notamment). 


Vous aimez commencer par Lire un article 
décrivant Le but d'un programme, BASIC ou autre, 
son mode d'emploi et disposer d'un exemple. 
N'hésitez donc pas à présenter votre travail 
comme vous aimeriez Le trouver dans JPC. 


Vérifiez votre programme : Eh oui ! IL est 
fréquent qu'après Le dernière mise au point, 
dans lL'euphorie d'avoir enfin réduit Le dernier 
bogue, et dans La hâte de Le mettre sous pli, 
vous recopiez une version antérieure et il nous 
faut quelques heures pour débuger un programme 
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que nous n'avons pas écrit. C'est coton ! 


Pour Les BASICS n'envoyez que des versions sous L'ANTI-CHRONIQUE OU MENTEUR 
forme de textes (utilisez TRANSFORM INTO TEXT) 
cela nous évite de chercher à quoi correspondent 
Les XWORD de votre programme. Prenez même la 


précaution de commencer par Une remarque Je viens de rencontrer un ancêtre qui se 
précisant Les LEX utilisés par votre programme. lamantait de ne pas avoir eu de  HP41. 

Qu'aurait-il fait de mieux en La possédant ? Je 
Vous trouverez dans ce numéro l'ensemble des vous laisse réfléchir. 


logiciels nécessaire pour vos créations : 
Quoi de neuf dans Le château ? Et pourquoi... 
CHARLEX Caractères ROMANS 


TEXTEK Assignation des caract. accentués Contrairement à ce que le Menteur annonçait Le 

FORMALEX mois dernier La HP41CV plafonne toujours à 130$ ! 

FORMAT Justifie le texte 

ASSRED Formateur pour source assembleur IL a bien ri l'animal. Et chacun de se gausser 
jonquillement en reluquant sa pauvre machine si 
cher payée ! 


Jean-Jacques DHENIN 
Venons en au sujet de ce matin : What's new in 
the U.S. ? 
HORNMPMEI RRRR SR RS SRE en ee tes tas ns Pour ce faire j'ai pris La redoute u.s. i.e. 
Educalc. 


- Une pochette en cuir pour 41 (page 2) $21.9599 
COURRIER DU COEUR - Un module CCD (et Le JJD alorsi) $149.95(99) 
- Un module HP-IL bas prix pour La même becanne 
599.99 (le prix d'une poupée) 


Alain HERREMAN, 2 rue du parc Montsouris 75014 - Un MLDL (toujours) 5399.95 
Paris ( Tel : 45-89-09-41 ) . Vends un - Pig que ça 32 ou 64 Ko dans La 41 (ou plutôt 
Port-Extender ET une boucle HP-IL Le tout 500 111 dessous) $5384.95/643.95 = ... 

- Le tubo 41 pour 71 (qui en veut encore?) 
Philippe GUEZ, 56,rue JJ ROUSSEAU 75001 PARIS : $918.0000000 
Vends 2 modules 4K pour HP71. 500f pièce - Pour Le 717 lui même 5399.95 


- Module 32Ko $149.95 disponibles 1! 


JP BONDU : Vends 3 modules 4K pour HP71 300f 
pièce Alain FARGE 
1 HP71 + HPIL pour 4300f Les deux. 














UP TL + RS 232 —+ 
Mais ça bevucle | 


Ho En» 


# 









2 7 "WA 

IS Re PE 

PS LE 
nn 


5 A A Si 
ex A ? CLS 
un -— = 5 en ES : = À s Ææ. DE Te 
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Le fonction COPY : Bizarre, bizarre Le 
HP-71 et son Lecteur 


*Un fichier sans type* 


Un jour, peut-être, vous voudrez Lire un 
fichier nommé TOTO : 


COPY TOTO:CARD 


mais vous aurez appuyé deux fois sur La touche 
[ENDLINE], par mégerde. Le méssage: 


Pull Card 


s'affiche. Que faire? Par exemple [LINIT 1]. On 
reprend La procédure de lecture. Mais ici, le 
HP. annonce : Insufficient Memory. 


Ah? MEM affirme qu'il ne reste qu'une centaine 
d'octets. Cataloguez TOTO. Surprenant, non ? 
TOTO 15998 date/heure..... 


Un fichier sans type nommé TOTO, qui #8 récupéré 
la totalité de La mémoire disponible. 


*Une bogue du lecteur plutôt désagréable* 


Lorsque La machine attend une carte et et 
qu'une initialisation 1er niveau se produit, le 
HP. considère avoir lu Le carte. 


Maïs alors, si ces simples mots sont éxécutés: 
COPY  :CARD ? 


de pense que Titan créera un fichier sans type 
avec Un nom composé de 8 espaces. Ceci est 
d'autant plus absurde que l'on perd La mémoire 
vive sans pouvoir Le récupérer. En effet, les 
fonctions de fichiers n'autorisent pas des noms 
de 8 caractères. 


Autrement dit, La commande avortée COPY:CARD 
provoque l'évaporation de La mémoire. 


*Un HP distrait, soyez vigilent* 








Le plus amusant, c'est que les fichiers sans 
type résistent aux POKE . En cas d'évaporation 
de La mémoire il n'y a guère qu'un Memory Lost.(1) 


Un fichier sans nom et sans type est difficile 
à manipuler. En somme, une règle supplémentaire 
de La fonction COPY : éviter de provoquer [INIT 
11, lors de La lecture d'une carte. 

Dans Le style: vous avez Le module FORTH. 
Faites un MEM() du port où il est : on y trouve 
1999 octets de Libres. Frustrant, non ? 

Bill X. 
(1) NdR : Avec Le module Forth il n'y plus de 


POKE qui tienne ! Maïs ceci est une autre 
histoire. 


INTERFACE HPIL ex MINITEL 


A) SYNOPTIQUE : 


[ Horloge | 


HPIL in SE UART serial out 
HPIL OT HP 821664 |<— serial in 
CE Lot 
boucle prise péri- 
HPIL informat ique 


UART = AY - 3 - 1015 de General Instruments 
B) SCHEMAS: 


* Convertisseur: acheté tout monté ou en kit. 
* Horloge 
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1k 1k 








2,4576 MHz horloge 
1200 bauds 


(19,2KH2) 


300 bauds(4800 Hz) 
pattes 17 et 40 du AY-3-1015 (module UART) 


Alimentation des circuits TTL: 
7404: massez=7, +5Vz14 
74393: massez7, +5Vz14 


(Voir plus Loin un schéma d'horloge “économique 
sans quartz, mais qui nécessite un réglage.) 


Ce module assure Les communications séries à 
1200 bauds, 7 bits par caractères, parité paire, 
1 bit de stop avec Le minitel. 


Horloge économique: 


+5v 


horloge 
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Régler l'ajustage pour avoir 19200 Hz en sortie 
C) REGISTRES OU CONVERTISSEUR : 


- IL convient de modifier leur valeur par défaut, 
en particulier pour se mettre en mode 
uni-directionnel. 

- avec une HP41 (et Le module X-1/0), le petit 


programme suivant fera l'affaire: 


NLOOP 

ADROFF 

1 (à changer si Le convertisseur 
LAD a une autre adresse) 

0 

Dot 

130 (130 mieux que 64 : La présence 
OUTXB de DATA en provenance du RTC 
16 génére un SREQ 

OUTX8 

218 

OUTXB 

UNL 

ADRON 


- Toutes Les données envoyées au convertisseur 
apparaîtront sur l'écran du minitel, toutes Les 
touches tapées au clavier du minitel pourront être 
lues dans Le convertisseur. 


Lionel 


EURÉKA!/ 


D'A1 DEcouverT LA 
BN NE s060n0w 





MODULE UART 





31 vcc 
3 vc1 +5v 


12 ROYO >— 


patte 3 du 2nd 74393 (module clock) 


parité : paire/imsire 
} nombre de bits par 
} caractères (5,6,7,8) 















24 PAT <— nombre de bits de stop 
23 PAG «— parité : préste/ebste 
22 PAS €— 
21 PAG — —————————<{ pPB7 18 
28 PAS +— PB6 17 
27 PA2 €— P85 16 
30 PAT e—— ———————————< PB4 15 
29 PAU <—— P83 10 
PB2 9 
1 GND PB1 8 
7 GND PBO 2 
33 GND D < 
Ru — DACI 11 
19 DACO — DAVO 5 
rie gif ER — (>, 0 6 
20 DAvI Que Luc rs DCLO 34 
à 13 
+5v 2,Xn INVERSEURS : 
10K +5V LED VERTE 7404 
100yF = nn f +5v patte 3 du 
(RXD) “30 AN-7910 
2N5136,2N222,BC109 module modem 
blanc : 
CL Tx ] +5v 7 470 [ Rx ] rouge 
470 LED JAUNE 1 
{ masse ] Fa 2N5136 
£ ouvert : MINITEL PERS 
fermé : MODEM , 
eN5136 
e ci 1 
AT 4“ .7X 
patte 26 patte 10 


du AM7910 (module MODEM) 


(1) on peut remplacer les 3 inverseurs 7404 ( 


per des portes NAND 7400 ( ) 


du AM7910 (module MODEM) 


) 


(2) on peut remplacer Le convertisseur (82166) par 


l'interface GPIO (82165) 


(3) alimentation 7600: massez7, +5V=14 
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Si cette année promet d'être 
un excellent cru pour le vin, 
nous pouvons, dès mainte- 
nant, vous affirmer que 1985, 
en ce qui concerne les perfor- 
mances de cette ligne de pro- 
duits, s'est révélée une année 
aussi exceptionnelle. 


En effet, pour la première fois, 
la France est, ce deuxième 
semestre 85, première au hit 
parade des ventes européen- 
nes, et ce succès, c'est à vous, 
chers distributeurs, que nous 
le devons. 

L'analyse de nos résultats 
prouve encore plus, que les 
meilleures ventes sont effec- 
tuées par ceux dont la compé- 
tence est la plus forte en ter- 
mes de connaissance des pro- 
duits et de disponibilité des 
machines. 


Beaucoup d'entre vous nous 
ont fait part de la satisfaction 
que leur avaient apportée les 
présentoirs d'aide à la vente, et 
nous ne saurions trop conseil- 
ler à ceux qui auraient besoin 
d'exemplaires supplémentai- 
res, de nous les commander. 


De plus, les nombreux posters 
que nous éditons, rappellent à 
votre clientèle que vous êtes, 
dans votre ville, un des points 
de vente agréés Hewlett- 
Packard. N'hésitez pas à les 
afficher à votre meilleure place 
et à profiter aussi de cette 
excellente accroche. 


De même, une documentation 
de qualité, que vous pourrez 
immédiatement distribuer sur 
simple demande, sera un plus 
auquel votre clientèle sera par- 
ticulièrement sensible. 
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Commandez donc, dès main- 
tenant, les références qui vous 
font défaut, auprès de votre 
grossiste : Centrale d'Achat ou 
Bureau de Vente HP, le plus 
proche. 





série 10 





Comme nous vous l'avons 
annoncé au mois de juin dans 
Looping n° 8, notre campagne 
publicitaire du premier semes- 
tre a contribué de façon signifi- 
cative aux résultats enregistrés 
ces derniers mois. 


Forts de ce succès, nous avons 
donc poursuivi cette campa- 
gne en décembre, en l'éten- 
dant à de nouveaux supports 
tels que ‘’Théorème’”, soit en 
tout 270 000 encarts dans cinq 
revues spécialisées. 


Nous avons, de plus, étoffé 
cette action d'un mailing de 
40 000 noms, ciblé vers les 
entreprises. 


Les résultats sont à la mesure 
de nos efforts conjoints, puis- 
que plus de 1 500 machines de 
toutes marques ont été repri- 
ses par notre centre de Ville- 
pinte, et les heureux bénéficiai- 
res d'une sixième calculatrice 
gratuite sont plus de 400. 


La série 10, avec ses cinq ans 
de garantie, sa fiabilité, ses 
performances, est la gamme 
de produits dont la présence 
sur vos rayons vous positionne 
sans ambiguïté comme distri- 
buteurs de qualité, au profes- 
sionnalisme reconnu. 





série 40 





Depuis le 1* janvier, vous pou- 
vez commander un nouveau 
module qui vient étoffer la liste 
déjà longue des extensions et 
accessoires que le HP 41 est 
encore le seul calculateur de 
poche à proposer sur le mar- 
ché. 


Ce module appelé ‘’ADVAN- 





TAGE” avec ses 12 Ko en 
Rom, associe les meilleurs logi- 


ciels de mathématiques, ingé-’ 


nierie et finance que l'on ait 
jamais écrits pour le HP 41. 


Opérations matricielles et réso- 
lution simultanée d'équations 
sur nombre réels et imaginaires 


Fonctions Solve : (F{x) = o) 
intégration numérique 
(HP 15C) 


Opérations vectorielles 3 D. 


Conversion mulitibase et logi- 
que booléenne. 


Ajustements de courbes. 


Recherche des zéros jusqu'au 
5° degré. 


Evaluation de y = f{x) jusqu'au 
20° degré. 


Résolution d'équations poly- 
nomiales. 


Transformations de coordon- 
nées. 


Intérêts composés (HP 12 C). 
etc. 


A la différence des autres 
modules, la plupart des pro- 
grammes ‘‘ADVANTAGE" 
sont écrits en langage 
machine, donc d'exécution 
plus rapide. 


L'utilisation est de type convi- 
vial et pratiquement tous les 
programmes bénéficient des 
clefs reconfigurables au cla- 
vier. 





L'affichage direct des menus 
évite à l'utilisateur l'emploi des 
grilles ou les recherches dans 
le manuel auxquelles il était 
astreint auparavant. 


En outre, l'opérateur a la possi- 
bilité d'inclure en totalité des 
fonctions d'ADVANTAGE", 
dans son propre programme. 


Il est hélas impossible de 
décrire dans ce journal la tota- 
lité des fonctions de cette nou- 
velle Rom. Mais nous vous 
ferons parvenir dès sa paru- 
tion, la fiche technique corres- 
pondante. 


Vous pouvez donc commander 
dès maintenant ‘’ADVAN- 
TAGE” sous la référence 00041 
- 15055 au prix de 554 F HT. 


Faites-le dès maintenant car 
l'expérience prouve que la 
grande majorité des ventes 
d'HP 41 se font avec modules, 
accessoires et périphériques, 
dont le montant total atteint 
bien souvent entre 5 000 et 
8 000 F. 


Ceux qui vendent et fidélisent 
leur clientèle, sont ceux qui 
présentent et sont à mème de 
proposer une gamme com 
plète. 


Bonnes ventes ! 


Philippe Chaillot 
Responsable du Programme 
Calculateurs 
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série 70 








produits nouveaux 
non HP 





La Société COSERM, 

18, rue Morvan - 94633 Rungis- 
Tél. : (1) 46.86.64.75 

M. Chauvier importe les 
mémoires RAM de fabrication 
HHP : 


Il y 8 cinq types de produits qui 





informations synthétiques sur le HP 71B 





Cette interface permet au seconde par la valeur, après fichier très simple à réaliser, 
poste Minitel de jouer le rôle de avoir décodé le type, toutes les grâce à cinq instructions 
clavier et d'écran (25 lignes, 40 lectures suivantes du même paramétrables : 


colonnes) du HP 71B équipé 
de l'interface HPIL. Le clavier 
du HP 71 reste actif en même 
temps que celui du Minitel, uti- 
lisation du Minitel en écran du 
HP 41 et du HP 75, utilisation 
du modem du Minitel pour 
transférer et recevoir de l'infor- 
mation d'un centre serveur 
(stockage du bottin par exem- 
ple .….). Transmission de carac- 
tères ASCII et de fichiers binai- 


La Société ZENGRANGE 


s'implantent à la place du lec- Limited - (Greenfield Road 
teur de cartes magnétiques : Leeds 

e Support Module EPROM L 598DB West Yorkshire 

e Support Module EPROM England 


+ 32 Ko RAM 

e Module RAM 32 Ko 
e Module RAM 64 Ko 
e Module RAM 6 Ko. 


Rappelons que le HP 71B com- 
plètement équipé peut attein- 


Tel. : 0532.48.90.48. 


commercialise un lecteur de 
codes-barres qui à plusieurs 
fonctionnalités spécifiques 

lecture codes-barres, Codabar 
{USD - 4) ; code 11 (USD - 8); 


code se font à la première lec- 
ture, vérification du digit de 
parité, analyse du bar code et 
impression du code sur l'impri- 
mante Thinkjet, ce module 
équipé d'un crayon lecteur HP, 
occupe un logement de la face 
avant du HP 71B. 


INSERT - REPLACE - DELETE - 
SEARCH - FILES2R 


Ces instructions permettent la 
création, modification et sup- 
pression d'enregistrement de 
façon très simple. 


_ 








rappel 





Ce module prend tout son inté- 
rêt également lorsque le 
HP 71B est associé à l'interface 


dre 128 Ko de mémoire RAM Code 3 (USD - 3); EAN -13; Le module Traitement de Texte  MINITEL et à l'imprimante 
utilisateur … EAN -8:UPC-A;UPC-E: 82485 AF, devrait être vendu  THINKJET. 
: UPC - E (1) ; 2/5 industriel ; avec chaque HP 71 BF, toutes 
La Société KRISTAL 2/5 entrelacé. ses instructions permettent de 
Le ri il est pourvu d'un système de faciliter la programmation. En 
D décodage automatique : il plus de ses fonctions de traite- Robert Bayle 


commercialise une interface 


HPIL--+ Minitel. 


répond à la première lecture 
par le nom du code, à la 


ment de texte, formatage, 
etc..., il permet la gestion de 


Chef des Produits Portables 
Informatique Personnelle 
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FRANCE 
Parc d'activité du Bois Briard 
2, avenue du Lac 
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CHOCS EN RETOUR 


Le dernier numéro, daté d'AVRIL, contenait gag 
et erreurs. Côté gag, le poisson devait être 
plutôt bien noyé puisque beaucoup d'entre les 
lecteurs ont mordu à L'hameçon. Pourtant la 
description de ce prétendu 72C était tellement 
invraissemblable que nous n'avions pas supposé 
être crédibles. 
Puisque ce  bobard est passé pour une 
information nous devons tirer quelques 
conclusions : notre attente colective est grande 
d'un nouveau contrôleur de boucle plus rapide, 
disposant d'un écran multilignes et doté d'un 
système d'exploitation très évolué. Probablement 
pourrions-nous, ‘lans ces colonnes, faire part de 
nos rèves dans ce domaine. N'hésitez donc pas, 
soyez créatifs et, en utilisant Les conseils de 
La rubrique "AH ! Vous écrivez", faites nous 
part de vos souhaits. 


Côtè erreurs, La version de struclex était 
ancienne et, bien que J. TAILLANDIER nous ait 


communiqué La bonne version, il y æ eu 
interversion. Bref, nous ne savions plus à 
quelle [mère ou père] version il fallait se fier 


en fin de ponte. Voici donc 
seule, l'unique ...MEA CULPA 


l'authentique, La 


Pour ALLER LES GOTO !, il manquait Le source du 
FORTH: et pour La construction de La table 
d'équivalence, il manquait Le source de LINKLEX. 


En conséquence voici l'erratum 


J.J. DHENIN 


LEX "STRUC1! 
tENDW EQU 66 
tWHILE EQU 67 
tREPT EQU 68 
tUNTIL EQU 69 
(LEAVE EQU 70 
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CON(2) 
CON(2) 
CON(2) 
CON(5) 
NIBHEX 
REL(4) 
MSG 
POLL 


*MHAIN T 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


CON(3) 
REL(5) 
CON(1) 


*TEXT T 


TxTbSt 


TxEn01 


TxEn05 


TxEn03 


CON(1) 
NIBASC 
CON(2) 


CON(1) 
NIBASC 
CON(2) 


CON(1) 


LEX1D 
tENOW 
tLEAVE 

0 

F 
1+TxTbSt 
ermsgs 

0 


ID equivalent 


ABLE 


(TxEn01)-(TxTbSt) 
ENDW 
13 


(TxEn02)-(TxTbSt) 
WHILE 
13 


(TxEn03)-(TxTbSt) 
REPT 
13 


(TxEn04)-(TxTbSt) 
UNTIL 
13 


(TxEn05)-(TxTbSt) 


LEAVE 
13 


ABLE 


‘ENO' 
tENDW 


9 
LEAVE! 
tLEAVE 


11 


NIBASC ‘REPEAT' STOPDC EQU #05303 


CON(2) tREPT TRFROM EQU #OFE59 

TRTO+ EQU #O0FE7B 

TxEn04 1/0FND EQU #118BA 
CON(1) 9 EOLSCN EQU #08AA7 


NIBASC ‘UNTIL' 
ermsgs CON(2) eNOWHL 


CONC2) tUNTIL CON(2) eNOENW 
TxEn02 
CON(1) 9 ENOWHL CON(2) CFNOMHL )- (DNOMHL ) 
NIBASC WHILE' CON(2) eNOWHL 
CON(2) tWHILE CON(1) 4 
MIBASC 'WHILE' 
MIBHEX 1FF CONC1) #C 
fNOWHL 
LEXID EQU #1 bNORPT CON(2) CFNORPT) -C(bNORPT ) 
tXMORD EQU  #EF CON(2) eNORPT 
WMILEt EQU 9 CON(1) 8 
REPTt EQU 10 MIBASC ‘no REPEA' 
eNOMHL EQU 3 MIBASC °T' 
eNORPT EQU 4 CON(1) #C 
eLEAVE EU 5 ENORPT 
eNOENV EQU 6 
elNVLD EQU 236 bLEAVE CON(2) CLEAVE)- (bLEAVE ) 
OFTYPh EQU #10 CON(2) eLEAVE 
fBASIC EQU  #OE214 CON(1) 16 
eSYSER EQU #17 CON(2) elNVLD ‘Invalid ! building block 
bSTHT EOU  #801 CONC1) 4 
NIBASC ‘LEAVE 
STMTDO EQU  #2F891 CON(1) #C 
STHTDI EQU  #2F896 fLEAVE 
PRGMEN EQU  #2F567 
TRACEM EQU  #2F7B0 bNOENW CON(2) CFNOENU) - CHNOENU) 
CURRST EQU  #2F55D CON(2) eNDENW 
CONC1) 11 
WRDSCN EQU  #02C2A CON (1) 11 
FIXP EQU  #02A6E MIBASC ‘no END W!' 
TKSCN7 EQU  #08499 MIBASC ‘HILE' 
FIXDC EQU  #05693 CON(1) #C 
REST* EQU  #03035 fNOENU 
EOLXC* EQU  #052EC 
OUTNBC EQU  #05423 MIBHEX FF 
POPUPD EQU  #OBF3E 
EXPEXC EQU  #0F186 . 
POPIN+ EQU  #0BD91 * END WHILE 
PSHGSB EQU #08F13 ® 
NXTSTH EQU  #OBALS 
BSERR EQU  #0939A REL(5) ENDUd 
MFERR EQU  #09393 REL(5) ENDWp 
RUNRT1 EQU  #O74E7 ENDW  CDOEX 
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rm 


D0=(5) 
DATO=C 
CD0EX 
GOSUB 
GoC 
P= 
LC(1) 
P= 
?C=0 
GOYES 
ENDWO1 Pz 
LC(2) 
myerr P= 
LC(2) 
P= 
GOVLNG 
ENDWO2 ?ST=1 
GOYES 
P= 
LC(3) 
GOSBVL 
BzA 
CO1EX 
?0<C 
GOYES 
C2C+8 
?70>=C 
GOYES 
ENDWO4 C=0 
D0=(5) 
DATO=C 
CD0EX 
GOSUB 
GOC 
DO=(5) 
C=DATO 
CD0EX 
GOTO 


ENDW10 CDOEX 
R2=C 
* 
DO=(5) 
* 
A=DATO 
P= 
LC(1) 
ENDW11 GOSUB 
C=R2 
* 
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(=STMTD1) 
A 


popupd 
ENDWO1 

15 

WHILEt 

0 

S compare avec notre type 
ENDWO2 Ok 
0 

eNOWHL 

2 

LEXID 


2BSERR 


ENDWO4 depuis un programme 
bSTMT 
=1/0OFND 
A Longueur du buffer 

CLA] début du buffer 
A eddr < début du buffer 
ENDWO1 
A CLA] à fin du buffer 
A 
ENDWO1 
A sdresse de l'expression 
(STMTD0) 
A STMTDO * avant expression 


depuis Le clavier 


eval 
ENDW10 
(STMTD1) 
A 


runrti 


sauve DO aprés l'expression 
dans R2 

(=STMTDO) push addresse sur GOSUB 
stack 

A . 

15 . 

WHILET . 

pshgsb . 
restaure DO après 
expression 


CD0EX 

ENDW15 ?ST=0 15 
GOYES runrt1 
GOoSUB trflck 
GOoC runrt1 
CO0EX 
R2=C 
GOSBVL =TRFROM 

* 

C=R2 
DO=C 
GOSBVL =TRTO+ 
A=R2 
DO=A 

runrti GOVLNG =RUNRT1 


trflck ST=0 10 
* 

?ST=0 15 
RTNYES 
?ST=0 13 
RTNYES 
?ST=1 10 
RTNYES 
D1=(5) TRACEM 
Ps 0 
LCHEX 
A=DAT1 
AzABC 
AsA-1 
D1=(5) =CURRST 
C=DATI A 
D1=C 


VU v © NW 


en mode TRACE 
non 

trace active ? 
non 


exécute La partie FROM de 
trace 


partie TO de trace 


restaure DO et fin 


pompé sans vergogne 
(#0FE18) 


D1=D1+ (oFTYPh)-1 


A=DAT1 À 
ASR A 
LC(S) =fBASIC 
?AzC À 
GOYES clrcy 
RTNSC 

clrey RINCC 


* WHILE <expression> 
* 


REL(S) WHILEd 
REL(5) WHILEp 
GOSUB saveDO 
CO0EX 
GOSUB 


WHILE 


eval 


sauve DO dans STMTDO 


GONC WHIL20 condition fausse 
CD0EX 
R2=C 
DO=(5) (STMTDO) adresse du début 
e d'expression 
A=DATO A 
P= 15 
LC(1) WHILET 
GOSUB pshgsb 
C=R2 restaure DO 
CD0EX 
nxtstm GOVLNG =NXTSTM 


* La condition est fausse, on doit trouver Le END 


- WHILE 
* correspondant à notre WHILE. On utilise un 
" compteur 


* dans R2LA] incrémenté par un WHILE 
* et decrementé par END WHILE. 


WHIL20 C=0 A prepare compteur 
C=C+1 À R2LA] incrementé par notre 
e WHILE 
R2=C 
?ST=0 13 
GOYES WHILOS 
D1=(5) PRGMEN fin du programme 
C=DAT1 À 
GOTO WHILO6 
WHILOS P= 0 
LC(3) BSTMT clavier: cherche La fin du 
. buffer 
GOSBVL =1/0FND 
CMEX 
CeC+A À 
WHILO6 D=C A 
WHIL21 P= 0 
LCC2)  tXWORD 
GOSBVL =TKSCN7 
Goc WHIL22 trouvé 
LC(2) eNOENW 
GOTO myerr 
VWHIL22 DO=D0+ 2 
LC(4) CtWHILE)*#100+(LEXID) 
P= 3 
A=DATO WP 
2A#C WP 
GOYES WHIL23 ce n'est pes un WHILE 
CER2 
C=C+1 A 


fin de recherche dans D [A] 


‘no END WHILE' 


compte un WHILE 


ro 


Rè=C 
GOTO WHIL30 
WHIL23 P= 2 
LC(2) tENDW 
P= 3 
7A#C WP 
GOYES WHIL30 ce n'est pes END WHILE 
CeR2 
C=C-1 À compte un END WHILE 
?C=0 À terminé ? 
GOYES WHIL4O oui ! 
R2=C 


WHIL30 GOSUB eol va à tEOL ou ta 
GOTO WHIL21 retourne chercher 


WHIL4O DO=D0+ 4 
GOTO ENDW15 TRACE s'il y a Lieu 


* Evalue L'expression pointée par DO, retour avec 
e. carry clear 

*si0 

* DO “ fin d'expression au retour 


eval GOSBVL =EXPEXC 
GOSBVL =POP1N+ 
SETHEX 
P= 16 
GONC eval01 
?2A#0 WP 
GOYES eval02 
A=RO 

eval0i 7A#0 WP 
GOYES eval02 
RTNCC 

eval02 RTNSC 


* va en fin de Ligne si DO * tXWORD 


eol DO=D0- 4 retour à L'octet Longueur 


A=0 À 

A=DATO B Longueur de ligne 
B=A A 

ADOEX 

ArA+B À ALA] * tEOL ou ta 
DO=A 

RTN 


pshgsb GOVLNG =PSHGSB 
popupd GOVLNG =POPUPD 
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saveDO CDOEX GOTO ENDW11 trace s'il y a Lieu 
DO=(5) (STMTDO) 


DATO=C À . 
RTN * REPEAT 
* 
* 
* WHILE <expression> REL(S) REPTd 
® REL(5) REPTpP 
REPT  ADOEX 
REL(S) WHILEd  parse & decompile = WHILE P= 15 
REL(5) WHILEP LC(1) REPTtT 
UNTIL CD0EX GOSUB pshgsb 
DO=(5) (=STMTD1) CSRC 
DATO=C A CD0EX 
GOSUB  popupd GOTO nxtstm 
GoC UNT101 
P= 15 . 
LC(1) REPTt * LEAVE 
Ps 0 . 
?2C2D S compare avec notre type REL(S) REPTd 
GOYES UNTIO2 Ok REL(5) REPTP 
UNTI01 LC(2) eNORPT LEAVE GOSUB saveDO sauve DO dans STMTDO 
GOTO myerr GOSUB  popupd 
UNTI02 ?ST=1 13 GOC LEAVO1 
GOYES UNTIO4 depuis un programme P= 15 
P= 0 LC(1) REPTt 
LC(3) BSTMT depuis Le clavier, trouve ?2C:D S 
° Le buffer GOYES LEAVO2 
GOSBVL =1/0FND LC(1) WHILEt 
B=A A Longueur du buffer 2CD S 
CO'MEX D1 buffer start GOYES LEAVO2 
?0<C A eddr < buffer start LEAVOI LC(2) eLEAVE 
GOYES UNTI01 GOTO myerr 
C=C+8 À CLA] end of buffer 
70>=C À * On utilise R2LA] comme compteur, incremente par 
GOYES UNTI01 e REPEAT ou WHILE 
UNTI04 C=D A adresse de l'expression * decremente par UNTIL ou END WHILE 
DO=(5) (STMTDO) 
DATO=C A sauve adresse après REPEAT LEAVO2 C=0 A initialislise compteur 
D0=00+ 5 DO * STMTDI C=C+1 À 
C=DATO A R2=C 
CD0EX DO * expression ?ST=0 13 depuis Le clavier ? 
GOSUB eval GOYES LEAVOS oui 
GONC UNTI10 D1=(5) PRGMEN fin du programme 
GOTO runrti C=DATi À 
UNT110 DO=(5) (STMTDO) adresse après REPEAT GOTO LEAVO6 
A=DATO A LEAVOS P= 0 depuis Le clavier, cherche 
R2=A ® le buffer 
Ps 15 LC(3) DSTMT 


LC(1) REPTt GOSBVL =1/0FND 
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CMEX 
C=C+A 
LEAVO6 Dec 
e 
DO=(5) 
C=DATO 
CDOEX 
LEAV21 P= 
LCC2) 
GOSBVL 
Goc 
LC(2) 
GOTO 
LEAV22 DO=D0+ 
LC(4) 
P= 
As=DATO 
?A=C 
GOYES 
P= 
LCC2) 
P= 
?A=C 
GOYES 
P= 
LC(2) 
P= 
?A=C 
GOYES 
P= 
LCC2) 
P= 
?AEC 
GOYES 
LEAV32 GOSUB 
GOTO 
LEAV33 C=R2 
C=C+1 
R2=C 
GOTO 
LEAV30 CæR2 
C=c-1 
R2e=C 
?C#0 
GOYES 
GOSUB 
GOTO 


REPTd GOVLNG 
REPTp RINCC 


———————— 


A 
A edr. de fin d'analyse dans 
DEA) 
(=STMTDO) 
A 
restitue DO 
0 
TXWORD 
sTKSCN7 
LEAV22 si trouvé 
@LEAVE 
syerr 
è 
(tENDW)*#100+(LEXID) 
3 
PP 
PP 
LEAV30 c'est END WHILE 
2 
tUNTIL 
3 
WP 
LEAV30 c'est UNTIL 


TREPT 


LEAV33 c'est REPEAT 


tWHILE 


LEAV33 c'est WHILE 
eol retourne chercher 
LEAV21 


mt a jour Le compteur 
LEAV32 


A 

st se jour Le compteur 
A 
LEAV32 pes termine 
eol DO * tEOL ou ta 
ENDW15 TRACE s'il y e Lieu 


æSTOPDC 


ENDWp GOSBVL =WRDSCN 
CON(2) =tXWORD essayer WHILE après END 
CON(2) #LEXID 


CONC2) tWHILE 
REL(3) ENDWp1 si ok 
CON(2) 00 
P= 0 sinon on essaie d'autres 
e END 
GOVLNG eREST* 
ENDWp1 DO=D0- 6 si END WHILE on ne stocke 
* pas tWHILE 
RTNCC 
ENDWS LCASC ‘ELIHW' displey WHILE 
P= 9 


GOSBVL =OUTNBC 
GOSBVL =EOLXC* on doit être à EOL 


WHILEp GOVLNG =FIXP merci HP 
WHILEd GOVLNG =FIXDC 
END 


ADDENDUM à LINK 


Dans Le but d'augmenter La puissance du 
programme LINK j'ai rajouté La pseudo-op 
INCLUDE. Syntaxe : INCLUDE <NomFich>. Lorsque 
LINK éxsmine votre source il insère à La place 
de INCLUDE Le fichier TEXT spécifié. Ainsi les 
programmeurs qui se sont construits des 
sous-routines peuvent directement Les appeler. 
<iomFich> NE DOIT PAS DEPASSER 8 CARACTERES. Si 
la syntaxe est incorrecte l'éditeur de texte est 
immédistement appelé afin que La correction 
s'effectue ‘dans La foulée'. Si Le fichier n'est 
pas en RAM il est recherché sur La première 
mémoire de masse. À ce stade une recherche 
infructueuse engendre un message d'erreur. 


S'il n'y se pas assez de RAM pour insérer ce 
fichier, Les Lignes chargées sont effacées et Le 
source est donc laissé PARFAITEMNT INTACT. Si 
tout s'est correctement déroulé l'op INCLUDE est 
effacée. 


Un exemple : 
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GOVLNG NXTSTM 
INCLUDE JUMPER 
LABEL Diz=C 
JUMPER sera inclus avant LABEL. Voilà 1! Bons 
pré-assemblages avant l'assembleur en Langage 
Machine. 


Jesn-Piere BONDU (PPC 33, SIG 3) 


LEX ‘LINKLEX! 


1D #1 
MSG 0 
POLL 0 
ENTRY LABELS 
CHAR  #F 
ENTRY  PMN 
CHAR  #F 
KEY "LABELS! 
TOKEN 76 
KEY ‘MNEMO' 
TOKEN 77 
ENDTXT 
ADHEAD EQU #18187 
D=AVMS  EQU #14460 
DRANGE  EQU #18076 
EXPR EQU #0F23C 
FNRTN&  EQU #0F238 
HDFLT  EQU #18318 
REVS EQU #1838€ 


REVPOP  EQU #08031 


tatasniriétaontétiéttttétéetéébtétetéedbteteéeteeéet 


Nom: MNEMO z: Type: fonction 


Syntaxe: MNEMO(chaïîne) 


But: ‘chaîne! est l'enregistrement d'un fichier 
source, MNEMO renvoie La position de La 
mémonique en tenant compte des cas 
particuliers suivants. 


Sortie:  Pz MNEMO(chaîne) 
P=0: chaîne nulle (LEN=0) 
chaîne blanche 
chaîne débutant par !*! 


+ + + + + + © © + + + + + + 


® POS(1er caractère # espace) > 24 
® P#0: P * mnémo si enregistrement valide 
- P=LEN(chaîne) si chaînez' label... 
RtenétaenaneeeteeménaatateneeetttttR eee 
NIBHEX 411 1 chaîne 
PMN GOSBVL REVPOP MS <- chaîne retournée 
CD1EX D1 @ ler car (low mem) 
Di=C CLA]Js= D1 
CaC+A À et ALA]= longueur 
RSTK=C RSTK à sommet Math Stack 
ASRB Nb quartets -> octets 
R1zA Riz LEN 
ST=1 0 * Cherche îer caractère 
GOSUB PMN10 * «> espace 
GoC exit0 Tous blancs/chaîne nulle 
B=C B B(8]z ler caractère 
LCASC ‘#1 
?782C 8 Ligne de remarque ? 
GOYES exit0 oui 
C=R1 CLA]= LEN 
C=C-A À 
B=C A B[A]= position 
C=0 A 
LC(2) 24 
78>C A Position > 24 ? 
GOYES exit0 C'est une Ligne de Rem 
LC(2) 3 
?8<C A Position < 3 ? 
GOYES PMN20 C'est un label 


* Routine de sortie/retour au basic 
* Entrée: 

, RSTK à sommet Math Stack 

® BLA] = position 

* 


Exit CaeRSTK 


Di=C 
D1=01- 16 
AzB A * Conversion BLA] hexa 
GOSBVL HDFLT * en décimal flottant 
CzA w * en C(W] 
GOVLNG FNRTN4  Renvoie C[W] 
exitO B=0 A 
GoCc Exit B.E.T. 


* On cherche Le prochain espace 


PMN2O ST=0 0 
GOSUB PMN10 
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GONC  PMN30 Trouvé 


* Sinon on renvoie Le Longueur de La chaîne +1 
®* (= Longueur du label [+espaces] +1) 


+. 
exitln As=R1 
AzA+1 À 
BA À BLAJ= LEN +1 


GONC Exit B.E.T. 


* On cherche le prochain caractère © espace 
* (= début mémonique) 


+ 

PHN30 STe1 © 
GOSUB PMN10 
Goc exitin Pas trouvé 
C=R1 CLA)= LEN 
CsC-A À 
B=C A SLAJ= position 


GONC Exit B.E.T. 


ÉRRRRRÉR RS RÉ RÉ ÉRRÉÉ RÉ ÉRRSÉRRRÉ RÉ R 


* Recherche du îer caractère 
e s blenc ( ST=0 0 ) 


D1 & caractère suivant 
ALAJ= Len - position 
C[B)= caractère 
CRRRÉRÉRRR RÉ ÉR RENÉE RER RÉ ER RÉ RÉ 


* # blanc ( ST=1 0 ) 
* 

* Entrée: 

e Di = début recherche 
. ALAJ]= longueur chaîne 
* 

* Sortie: 

= Carry SET --> Not Found 
* Carry CLR: 

* 

+. 

* 


PHN10O LCASC ! ! 


Bec 8 B[B]= ‘ ! 

PMN15 AsA-1 À Fin chaîne ? 
RTNC oui: retour CS 
C=DATI B C[B]= caractère 
Di=D1+ 2 
?ST:1 0 Teste si # blanc ? 
GOYES tst# oui 

tstz ?2B#C B blanc ? 
GOYES PMN15 
RTN oui: retour CC 


——— 


tst# ?78=C 8 # blanc ? 
GOYES PMN15 
RTN oui: retour CC 


LAIT III iii LL sil liiiiili);:;:)] 


* Nom: LABELS 3; Type: fonction 
*. 


* Syntaxe: LABELS(string$) 

* 

* But: vérifie que string$ est une étiquette 

* valide 

® d'un programme assembleur. Les conditions 
" à remplir sont Les suivantes. 


* Entrée: une chaîne, appelée LABELS 
+ 
* Sortie/aelgorithme: 
Si LABELS(1,1)e'=t 
LABEL$S=LABELS [2] 
Si Len(LABEL$)>6 
ou Len(LABELS$)<2 
ou LABELS(1,1)='#! 
ou LABELS commence par 1 chiffre 
--> renvoie chaîne nulle 
Si Len(LABEL$)=22 et LABELS='XS" 
--> renvoie chaîne nulle 
Renvoie LABELS 


e 
* 
+ 
*. 
- 
* 
e 
Li 
* 
* 
L 
* Exemples: 

" MTESTI45" --> ## cer len>é 

* “LBLtSt"  --> #LBLtst" 

MæNXTSTM" -->  MNXTSTM" 

e cer ‘=! en er position est ignoré 

® M#FFC" --> ““: c'est une adresse 

® S#TST* --> assimilé cas précédent 

e mitoken"  --> ##: commence par 1 chiffre 
& 


ÉRÉRÉR RÉ ÉRR RÉ ÉRRÉ RÉ ÉÉÉÉRRÉRRÉESSÉÉR 


NIBHEX 411 1 chaîne 
LABELS GOSBVL REVPOP cf MNEMO 
8=0 y 
BrA A 
BSRB BLA)]= LEN en octets 
C=0 A 
C=C+1 À 
?8<eC À LEN<2 ? 
GOYES null$ 
A=DATI À AC3-0)= LABELS (1,2) 
LCASC ‘=! 
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2A# BB LABELS(1,1]m'=1 ? C=C+B À C= pointeur+longueur 


GOYES LB8L10 non R1=C R1 à sommet MS (hi mem) 
, D1 à début chaîne (lu mm) 
* On éjecte '2': LABELS$S=LABELS (2] STz1 0 Retour après ADHEAD 
* GOSBVL ADHEAD Construit en-tête chaine 
B=8-1 A LEN= LEN-1 GOSBVL REVS Retourne chaîne 
D1=01+ 2 D1 à 2e caractère GOVLNG EXPR Renvoie La chaîne pointée 
A=DAT{ A » par D1 sur La MS 
* B[A]z LEN ; 01 à Îer caractère valide END 


* A(3-0]= LABELS(1,2] 
* 
LBLIO LC(2) 2 CLA]= 00002 
?28<C À LEN<2 ? 
GOYES nulls 
Le(1) 6 
?28>C A LEN>6 ? 
GOYES null$ 
LCASC ‘#! 
As 8 LABELSs ‘#....1 7 
GOYES nulls 
GOSBVL DRANGE Commence par un chiffre ? 
GONC null oui 
LC(2) 2 
78# 8 LEN#2 ? 
GOYES LBL30 oui 


+ 


LEN=2: teste si LABELS='XS! 


LCASC !SX' 
P= 3 


?2A#C WP Différent ? © 
GOYES LB8L30 oui 


* Renvoie une chaîne nulle. Pour cela on 

* positionne Le pointeur de début de chaîne D1 

* en fin de chaine & on indique une longueur nulle 
* 


null$  CDIEX 
C2C+8 À D1201+LEN (quartets) 
C=C+B À 
CO1EX D1 à sommet MS 
8x0 A LEN=0 


* Renvoie La chaîne pointée par D1, dont La 
* Longueur est en B(B] en octets 
* 
L8L30 Ps 0 
B28+8 8 octets -> quartets 
GOSBVL D=AVMS  DLAJ=zAVMS ; C2D1 
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A ŒQUAUD 
C'ASSEN À LEUR 


EN ASSEN Lg 


ASSEMBLEUR 
Janick Taillandier Mole weigth 20 
Jean-Pierre Bondu Le VERS dans les POLL 27 
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MOLE WEIGHT 


Je vous propose ce mois-ci un LEX dont 
l'intéret m'échappe encore mais dont la 
réalisation m'a passablement amusé, j'espère 
qu'il sera de quelque utilité pour certains 
parmi vous. 


AU commencement HP créa, pour fournir en 
logiciel Le 75, un LEX - toujours commercialisé 
par La bibliothèque de Corvallis - permettant de 
donner le poids atomique de tout élément de La 
classification périodique (si, si on en parle en 
chimie ...). 


J'avais, l'année dernière, transposé simplement 
ce LEX pour HP-71, mais il me semblait qu'il 
devait être possible de mieux faire en 
permettant au LEX d'analyser une formule 
chimique et de rendre cette fois Le pois de la 
molécule ainsi décrite. C'est donc Le but de MW 
présenté ici. 


La syntaxe est fort simple: 
MOLENT(' formule!) 


où formule est composée par des symboles 
chimiques "classiques" composés de Une ou deux 
lettres; La première lettre est obligatoirement 
en majuscule et La seconde, si elle existe, est 
en minuscule: 


CO = carbone + oxygène 
Co = cobalt 


bien entendu chaque atome peut être affecté 
d'un facteur de répétition ce qui permet de 
rentrer des formules telles que: 


H20 ou C£H6é ou CH3COOH équivalemt à CH3CO2N 


une imperfection de ce LEX fait que le facteur 
de répétition, pour chaque occurence, est Limité 
à (10*12)-1. Si ceci vous gêne vous pouvez 
répeter l'atome autant de fois qu'il sera 
nécessaire (je serai dans ce cas curieux de voir 
la formule ...). 





Pour La chimie organique il est possible 
d'utiliser les parenthèses des 
seni-developpées, par exemple: 


formules 
CH3(CH2)5CH3 que je vous Laisse Le plaisir de 
nommer | 


Malheureusement, il n'est pas 
d'imbriquer les parenthèses ... 


possible 


CH3(CH2)(CH2)4CH3 est correct 
CH3(CH2(CH2)4)CH3 ne l'est pas 


Pour conclure, je vous signale que ce LEX est 
très Loin d'être optimisé et je vous invite, par 
conséquent, à vous pencher sur son cas | 


Je précise enfin que, pour moi, La chimie 


relève d'un passé déjà lointain et que je dois 
beaucoup aux conseils prodigués par Eric Angelini. 


Janick Taillandier (P 246, CHHU 176) 


LEX ‘M! 
Janick Taillandier 1986 


* 
* 
* Change history 
* 1.3 version w/o Left & right parenthesis 
* 86/03/15 
* B: as 1.3 + parenthesis ie (CH3)2CCO0H 86/03/30 


10 #5C 

MSG 0 

POLL  poll 
ENTRY mass 
CHAR  #F 

KEY "MOLENT ! 
TOKEN 1 

ENOTXT 


in( EQU 0 
FUNCOQO EQU #2F888 


oo 


RANGE EQU 
ARGERR EQU 
REVPOP EQU 
DRANGE EQU 
STSCR EQU 
RCSCR EQU 
SPLITA EQU 
SPLITC EQU 
AD2-15 EQU 
MP2-12 EQU 
FLOAT EQU 
URES12 EQU 
FNRTN1 EQU 
WP2-15 EQU 


EJECT 


poll  ?B=0 
GOYES 
RTNSXM 
VERSO C=R3 
Di=c 
A=R2 
Di=D1- 
CD1EX 
AC 
GOYES 
D1=C 
R3=C 
VERSSt LCASC 
VERSen DATI=C 
hVERS1 RTNSXM 


NIBHEX 
mess CDOEX 
DO=(5) 
DATO=C 
ST=0 
A=0 
B=0 
GOSUB 
GOSBVL 
C=0 
CrA 
CSRB 
?C#0 


#1B07C 
#08F19 
#08D31 
#18076 
#g0E92c 
#0E954 
#0C6BF 
#0c940 
#0c363 
#0c432 
#18322 
#0c99% 
#0F216 
#0C43A 


hVERSO 
no other polls 
handle VERS 


(VER$Sen)-(VERSst)-2 
A 
hvERS1 


"WW:B' 
(VERSen)-(VERSst)-2 


411 

(FUNCD0) 

A save DO in FUNCDO 

in( 

W 

W 

stscr 

sREVPOP pop & reverse string 

ÿ for CSRB 

A get Length in nibbles 
length in bytes 

A 


GOYES 
argerr GOVLNG 
mess01 C=C-1 

RO=C 
massii A=DATI 

GOSUB 

GONC 

LCASC 

?C=A 

GOYES 

LCASC 

?C=A 

GOYES 

GOTO 


mass13 GOSUB 
Di=D1+ 
GOTO 


messié P= 
GOSUB 
GOSUB 
GOTO 


mass12 R1rA 
C=RO 
?C#0 
GOYES 
GOTO 


mass20 RO=C 


mass21 P= 


mass01 
ARGERR 
A 


8 
Arange 
mass 12 
‘ç: 

B 
mass13 
‘)! 

B 
mass1é 
argerr 


LP 
2 
mss11 


messé0 
mass+ 
RP 


A 
mass20 
1 
mass90 


è 

B 
2DRANGE 
mess21 
Arange 
mess25 
‘ze! 
range 
mass26 
“ç! 

B 
mass25 
‘)! 

8 
mass28 
ergerr 


1 








count 1st char 
Length in RO 


if not in A..Z 


save char in Ri 
restore count 


not yet finished 

find component and exit 
gave count 

read next char 

it is a digit 


it is in A..2 


it is in a..z 


otherwise ‘Invalid Arg' 
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GOTO mass34 process digit after GOSUB mess+ 


* processing mass GOSUB cent-1 
GOTO RP 
mass25 P= 1 
GOSUB mass40 mass33 P= 3 
GOSUB mass+ GOSUB mass4O return mass în C[W] 
GOSUB ent-1 GOSUB mass+ update total 
GOTO mass GOSUB cnt-1 
GOTO massi1 process new elt 
mass26 C=R1 uppercase + lowecase 
e component mass32 P= 3 
cst w mass34 GOSUB massé0 
csL W R2=C save mass in R2 
C=A 8 GOSUB dig 
R1=C new character appended ?2C:=0 À 
GOSUB cnt-1 update count GOYES mass37 end of string 
?2C#0 À GOSUB Arange 
GOYES mass31 GONC mass38 
P= 3 # of nibbles in comp name LCASC ‘(! 
GOTO mass90 ?AsC 8 
GOYES mass35 
mass28 P= 1 LCASC !)! 
GOSUS mess40 7A2C 8 
GOSUB mess+ GOYES mass36 
GOSUB cnt-1 GOTO argerr 
GOTO RP 
#* dig<12: test if number of digits as counted in 
mass31 D1=D1+ 2 ® D [A] 
A=DAT1 B read new char e is <= 12. 
GOSUB drange ® RTN if ok, otheruise error exit 
GONC mass32 in 0..9 
GOSUB Arange dig<12 C=0 A 
GONC mass33 LCHEX C 12 
LCASC !(! 70<sC À 
?A:C 8 RTNYES 
GOYES massla GOTO argerr 
LCASC !)! 
?2AzC 8 mess35 GOSUB dig<12 
GOYES mass3b GOSUB massad 
GOTO argerr otherwise ‘Invalid Arg' GOSUB LP 
D1=01+ 2 
massia P= 3 GOTO massii 
GOSUB mass40 
GOSUB mass+ mass36 GOSUB dig<1è 
GOSUB LP GOSUB massad 
D1=D1+ 2 GOTO RP 
GOTO messii 
mass38 GOSUB dig<12 
mass3b P= 3 GOSUB massad 
GOSUB mass40 GOTO massii process new component 
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mess37 GOSUB 
GOSUB 
GOTO 


mass90 GOSUB 


* Exit 


massB0 ?ST=20 
GOYES 
GOTO 

massB1 GOSUB 
D0=(5) 
A=DATO 
DO=A 
Di=Di+ 
BCEX 
CDEX 
BCEX 
ACEX 
GOSBVL 
GOVLNG 


RP ?ST=1 
GOYES 
GOTO 
ST=0 
C=RO 
?C#0 
GOYES 
GOSUB 
GOTO 
Di=D1+ 
A=DATI 
GOSUB 
GONC 
GOSUB 
GONC 
LCASC 
?A=C 
GOYES 
GOTO 


RP01 


RPO2 


RPO4  GOSUB 
GOSUB 


GOTO 


dig<12 
messed 
mess80 


messé0 
mass+ 


inc 
mass81 
argerr 
rescr 
CFUNCD0O) 


=FNRTN1 


in 
RP01 
ergerr 
in( 


A 

RPO2 
add 
messB0 
è 

B 
drange 
RPO3 
Arange 
RPO4 
‘(! 

B 

RPO4 
ergerr 


edd 
ent-1 
mess 


exit... 


edd it to total 
fall into mess80 


we have no } before end 
result in C/D 


restore DO 
D1 8 end of string 
from XYEX 


C/D to A/B 
pack result 


alresdy found ( ? 


no, then error 
no more in () 


still chars after ) 


what is after ) 


in 0..9 


îin A..Z 


we have !..)(..! 
otherwise error 


RPO3 


RPO51 


LP 


LPO 


GOSUB dig 
?Ce0 À 
GOYES RP051 


GOSUB 
GOTO 


enRP 
sass11 


GOSUB 
GOTO 


encRP 
sass80 


?ST=0 in( 
GOYES LP01 
GOTO argerr 
STr1 in 
A=0 (] 

B=0 W 
GOSUB stscr 
GOSUB cent-1 
?C#0 À 
RTNYES 


GOTO ergerr 


resd number 


nothing after Last digit 


process ( 
go to next component 


not already inside () 
otherwise error 


they have written !...(! 


* enchRP: sub-progm for byte savings only .... 


endrP 


GOSUB dig<12 
SETDEC 

A=B W 
GOSBVL eFLOAT 
GOSBVL =SPLITA 
GOSUB rcscr 
GOSBVL =MP2-15 
GOSUB stscr 
GOSUB add 
RTN 


GOSUB rcscr 
* 
BCEX 
CDEX 
BCEX 
ACEX VW 
GOSUB rescr 
SETDEC 
GOSBVL =AD2-15 
SETHEX 
GOSUB 
RTN 


LcLLc 


stscr 





result in A 


edd returns in HEX mode 


: edd 2 15-dig numbers on top of scratch 
scratch meth steck end push result on stack 


pop 1st element on top of 
stack 
from XYEX 


pop second element 


edd them 
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* dig: 
* in: 
* 


out : 


+ + + * 


dig 


dig01 


drange 


Arange 
range 


stscr 


rcscr 


* cnt-1 


ent-1 


process string of digit 
D1 à first digit 
# of characters left in RO 


C=0 A end of string 
C#0 A non digit char in AB] 
both cases number (DEC) in BW] 


B=0 wW 

D=0 A 

GOSUB cnt-1 

A=DAT1 8 

P= 0 

BsL W 
P 
A 


prepare image of count 
prepare digit counter 


read char 
for BzA P 


BzA 

D=0+1 

C=RO 

?7C:0 À 
RTNYES 
GOSUB cnt-1 
D1=D1+ 2 
A=DATI 8 
GOSUB drange 
GONC dig01 
RTN 


update digit count 


point to new character 
use CA] 

character in 0..9 
GOVLNG zDRANGE 


LCASC ‘ZA! 
GOVLNG =RANGE 


GOSBVL =STSCR 
RTN 


GOSBVL =RCSCR 
Ps 0 
RTN 


C=RO 
C=C-1 À 
RO=C 

RTN 


* massad: multiply mass in R2 by count in B[W] 


and add to running total on top of 
: scratch stack 


massad SETDEC 
AzB W 
GOSBVL =FLOAT 
Czr2 
GOSBVL =MP2-12 
GOTO mass+i 


* mass+ : add mass in C[W] to running total 
® on top of math stack. 
* use: A,8,C,0,00,P 


mass+ SETDEC 
AzC w copy mass in ACW] for 
: eddition 


GOSBVL =SPLITA in 15-digit format in A[W] 
recall top of scratch in 


mass+i GOSBVL =RCSCR 


® cn] 
GOSBVL =AD2-15 add them 
GOSBVL =STSCR push them again 
Ps 0 
SETHEX 
RTN 


* masskO: get mass from component name 
* entry: name in R1[WP] (P=1 or P=3) 
* exit: mass in C[W] 
* use: ACW),C0W],00 


mass4O A=R1 
?7P= 1 
GOYES srch10 
GOTO srch20 

srch10 GOSUB srch11 
LIST OFF 
NIBASC '8' 
NIBHEX 100000000001801 
NIBASC !'C' 
NIBHEX 10000000001 1021 
NIBASC !'F! 
NIBHEX 100000030489981 
NIBASC 'H' 
NIBHEX 000000000097001 
NIBASC 'K' 
NIBHEX 100000000389093 
NIBASC 'N' 
NIBHEX 100000000760041 
NIBASC ‘0! 
NIBHEX 1000000004 9995 1 
NIBASC 'P! 


recover name 
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NIBHEX 100000006737903 
NIBASC !S' 
NIBHEX 100000000006023 
NIBASC ‘U!' 
NIBHEX 200000000920832 
NIBASC !‘V! 
NIBHEX 1000000004 14905 
NIBASC ‘W' 
NIBHEX 200000000058381 
NIBASC ‘Y! 
NIBHEX 100000000950988 
NIBHEX 00 
LIST ON 

srch11 CeRSTK get address 
DO=C 

srch12 C=DATO 2 get name 
?AEC WP 
GOYES srch13 
?C=0 WP 
GOYES srch1é 
DO=D0+ 2 pest name 
DO=D0+ 15 pest numeric value 
GOTO srch12 

srch14 GOTO argerr 

srch13 P= 0 


DO=D0+ 2 

C=0 y prepare register 
C=DATO 15 rend mass 

P= 0 

RTN 


* 2 letters components 


srch20 GOSUB srch21 
LIST OFF 
NIBASC ‘cA' 
NIBHEX 200000000000722 
NIBASC ‘ga! 
NIBHEX 200000000868701 
NIBASC ‘LA' 
NIBHEX 100000004518962 
NIBASC ‘mA 
NIBHEX 200000000000342 
NIBASC ‘rA! 
MIBHEX 100000000084993 
NIBASC ‘sA' 
NIBHEX 100000000612947 
NIBASC ‘tA' 
NIBHEX 200000000000012 
NIBASC ‘uA' 


————_—_—_—_—_—_——————————…—…—…——…Rri 


NIBHEX 200000005669691 
NIBASC ‘eB' 
NIBHEX 200000000033731 
NIBASC ‘eB! 
NIBHEX 000000000812109 
NIBASC ‘iB' 
NIBHEX 200000004089802 
NIBASC ‘kB! 
NIBHEX 200000000000742 
NIBASC ‘rB' 
NIBHEX 100000000040997 
NIBASC ‘ac! 
NIBHEX 100000000008004 
NIBASC ‘dc! 
NIBHEX 200000000014211 
NIBASC ‘ec! 
NIBHEX 200000000021041 
NIBASC ‘fc’ 
NIBHEX 200000000000152 
NIBASC ‘1C! 
MIBHEX 100000000035453 
NIBASC ‘mC' 
NIBHEX 200000000000742 
NIBASC ‘oc! 
NIBHEX 100000000233985 
NIBASC ‘rc! 
NIBHEX 100000000069915 
NIBASC ‘sC' 
NIBHEX 200000004509231 
NIBASC ‘uC' 
NIBHEX 100000000064536 
NIBASC ‘yD' 
NIBHEX 200000000005261 
NIBASC ‘r£! 
WIBHEX 200000000062761 
NIBASC ‘sE! 
WIBHEX 200000000000452 
NIBASC ‘WÆ' 
NIBHEX 200000000069151 
NIBASC ‘er! 
NIBHEX 100000000074855 
NIBASC ‘mF' 
NIBHEX 200000000000752 
NIBASC ‘rF! 
NIBHEX 200000000000322 
NIBASC ‘ac! 
NIBHEX 100000000002796 
NIBASC ‘dG' 
NIBHEX 200000000052751 
NIBASC ‘ec! 
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NIBHEX 
NIBASC 
NIBHEX 
NIBASC 


NIBHEX. 


NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 


100000000009527 
eh! 
000000000062004 
TL 
200000000094871 
“gx! 
200000000095002 
‘oh! 
200000004039461 
"je 
200000005409621 
inl! 
200000000028411 
‘rl! 
200000000022291 
‘rK! 
100000000000838 
‘al! 
200000005509831 
“ile 
00000000000 1496 
‘rl! 
200000000000062 
‘Wu! 
200000000079 71 
‘h: 
200000000000852 
‘mn! 
100000000050342 
‘rt 
100000000083945 
‘oh! 
100000000004959 
‘en! 
100000007798922 
‘EN! 
100000000460929 
‘h! 
200000000042441 
‘eu! 
100000000097102 
‘in! 
100000000000785 
‘ON! 
200000000000552 
ph! 
200000002840732 
‘s0! 
200000000002091 
1! 


NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 
NIBHEX 
NIBASC 


200000009530132 
LP! 
200000000002702 
PL 
200000000004601 
1m! 
200000000000541 
1! 
200000000000902 
trpt 
200000007709041 
tp! 
200000000090591 
#! 
200000000000442 
‘er! 
200000004520622 
‘ER! 
100000000876458 
‘er! 
200000000702681 
‘he! 
200000005509201 
inR! 
200000000000222 
R! 
200000000070101 
1bS' 
200000000057121 
es! 
100000000955944 
es! 
100000000006987 
“is! 
100000000558082 
1m! 
200000000004051 
ins! 
200000000096811 
‘est 
100000000002678 
‘at! 
200000009749081 
‘bT!' 
200000004529851 
‘“eT! 
100000000000079 
‘er! 
200000000006721 
‘ht! 
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WIBHEX 200000001830232 d'un point sans importance. Et bien Les choses 


NMIBASC ‘iT! vont changer! HUGH ... 
NWIBHEX 100000000000974 
NIBASC ‘LT! Dans un peu moins de 5 minutes vous saurez tous 
NIBHEX 200000000073402 (j'ai bien dit TOUS, alors pas Le peine de filer 
NIBASC ‘mT' à l'anglaise et revenez vous asseoir, non 
NIBHEX 200000002439861 mais!), vous saurez donc tous modifier un Lex 
NIBASC ‘ex! quelles que soient vos Connaissances en 
NIBHEX 200000000003131 assembleur. En dehors de La joie immense que 
NIBASC ‘by! cels vous procurers (si si ...), fl est mème 
NIBHEX 200000000040371 possible que ça vous serve pour Vos programmes. 
NIBASC ‘n7! En bref Le pied, Le flash, La panacée, un petit 
NIBHEX 100000000008356 bout de paradis pour 35 Fr par mois chez tous 
NIBASC ‘r2! ; les bons libraires. Dites merci dans le micro. 
NIBHEX 100000000002219 Afin de récompenser Les braves qui sont encore 
NIBHEX 0000 end of table en me compagnie, je vais même vous dire de quoi 
LIST ON il s'agit. 
srch21 CeRSTK 
DO=C Avec l'été Les Lex fleurissent dans JPC, bien 
grch22 C2DATO 4 get name sûr vous avez trouvé parmi ceux-ci La fonction 
?2AEC WP dont vous n'osiez même pas réver il y a un mois. 
GOYES srch23 Avec Le programme MLEX vous vous empressez de La 
?C=0 WP compiler eux sutres dans le Lex utilitaire que 
GOYES srch24 vous vous êtes taillé sur mesure (veinard). 
DO=D0+ 4 Seulement voilà : comment vos programmes -BASIC- 
DO=D0+ 15 pest numeric value vont-ils savoir si ce Lex est, ou non, en 
GOTO srch22 mechine? Très simple et plus fiable que ADDRS, 
gsrch24 GOTO srchi4 not in table lavent plus blenc et pour moins cher, il ... 
srch23 P= 0 pardon je m'égare ! Reprenons. Nous allons 
DO=D0+ 4 8 numeric value intercepter (à vos postes) Le Poll (mission de 
C=0 vW routine) VERS. Cela va nous permettre de 
C=DATO 15 renvoyer dans La chaîne VERS un intitulé 
P= 0 identifient sans ambigüité notre Lex. Voici La 
RTN menière de procéder. 
END 
En tête de chaque Lex vous rajouterez La 
séquence: 
POLL  POLHND 
LE VERS DANS LES POLL POLHND ?B:=0 8 VERS poll ? 
GOYES pXc10 
GONC  PEND 
L'interception de Poll est un miracle quotidien PXC10 CER3 
que Le 71 accomplit, Le plupart du temps, dans Di=C 
l'indifférence générale. Je dis Le plupart du AER2 
temps pour que l'auteur de KBEEP ne trouve pas D1r=D1- (VERS$Sen)-(VERSst)-2 
prétexte à sévir de nouveaul. Pour l'amateur 2 Longueur de l'intitulé du Lex 
(exclusif) de BASIC il s'agit même certainement CMEX 
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?A>C A reste assez de mémoire? 

GOYES  PEND non 

D12C pointeur OK pour 
écriture mémoire. 


R32C 
VERS$st LCASC ! NOM:A ! DEF KEY ‘fU',CHRS(197); 
VERSen DATI=C (VERSen)-(VERSst)-2 DEF KEY ‘’FfE’',CHRS(193); 
PEND RTNSXM retour DEF KEY ‘’FR',CHRS(Z01); 
DEF KEY ’fY’,CHRS(203); 
* En entrée: BLA]z #poll ; R3[A]= Stack Pointer DEF KEY ‘’fU’,CHRS(195); 
* R2CAJ= (AVMEMS) DEF KEY ‘fI',CHRS(209); 
DEF KEY ‘’f0',CHR$(194); 
Remplacez ‘ NOM:A ‘ par l'intitulé désiré, sans DEF KEY ‘f7',CHRS(1S5S); 
dépasser 5 caractères (nous ne sommes pas Les DEF KEY ‘f8’,CHRS(174); 
seuls à intercepter ce poll), et sans oublier un DEF KEY 'f9',CHRS(95); 
espace avant et après. Dans Un programme vous DEF KEY ’f/',CHRS$(92); 
utiliserez La fonction: DEF KEY ’fA',CHRS8(192); 
IF POSCVERS,! NOM:A !) THEM DEF KEY ‘fS’,CHR$(200); 
en reprenant l'intitulé de notre exemple. DEF KEY 'fD',CHRS(205); 
N'abusez pas trop du procédé, mais regoupez DEF KEY ‘’fJ',CHRS(207); 
plutôt vos routines au sein d'un même Lex. DEF KEY ‘’fK’',CHRS(221); 
Heureuse programmat ioni DEF KEY ‘'fL’,CHRS(206); 
DEF KEY ‘fs’ ,CHRS(160); 
Jean-Pierre BONDU (PPC 33, SIG 3) DEF KEY ‘’fC’,CHRS( 181); 


DEF KEY ‘f1’,CHRS(936); 
DEF KEY ‘’f-’,CHRS$(126); 












Quelle . 
+o vehe. S: | 
VouS eerive2 
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BASIC 
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LA CLE DES MOTS 


A la fin d'une réunion du club, il est courant de 
retrouver dans sa machine une multitude de Lex 
dont on a oublié les mots clefs. Le programme 
SCANALEX vous permet non seulement d'en obtenir La 
liste, mais aussi de brancher Le désassembleur de 
Michel Martinet à l'adresse où commence le mot. 
Cela permettra aux bidouilleurs de profiter du 
travail de leurs collègues. 


Le mode d'emploi est simple. Après avoir 
introduit Le nom du Lex, les numéros des 
différents Lex présents s'affichent, puis le 
premier mot rencontré. Les informations données 
sont: Le numéro de touche (token), le nom, le 
type ([Flzfonction, [Dlzordre ...), l'adresse. Si 
vous désirez désassembler, appuyez sur La touche 
[=] (encore faut-il que le désassembleur soit en 
mémoirel...) Faites un premier essai avec DESAL 
(qui est indispensable, soit dit en passant). Ce 
programme me sert pour aller fouiner dans les Lex 
HP (because no source), et j'espère que vous ferez 
de même car ils sont riches d'enseignements. 


Maintenant quelques explications sur La structure 
d'un fichier Lex. La fonction ADDR$ renvoie 
l'adresse ADR du premier quartet du fichier. 
Voici ce que vous y trouverez: 


FILE HEADER 


File Name .............. 16 quartets 
File Type .............. 4 quartets 
Flags .............:... 1 quartet 
Copy Code .............. 1 quartet 
Creation Time .......... 4% quartets 
Creation Date .......... 6 quartets ” 
File Chain Lenght ...... 5 quartets 


TOTAL 37 quartets 


es... 


Dans un Lex on trouve ensuite: 


LEX IDentity ........... 2 quartets 
Lowest Token # ......... 2 quartets 
Highest Token # ........ 2 quartets 
Next LEX Table Link .... 5 quartets 
Speed Table Exists ? ... 1 quartet \ 1 quartet si 


Optionsl Speed Table ... 78 quartets > pas de 


Speed Table Exists ? ... 
Text Table Offset ...... 
Message Table Offset ... 
Poll Handler Offset .... 


1 quartet / SPEED Table 
4 quartets 
4 quartets 
5 quartets 


Main Table ............. 9% # keywords (quart.) 
Text Table ............. 3 * # keywords 
+ 2 * total # chars +3 
(en quartets) 


SIGNIFICATION 


LEX 1D: Identifie Le Lex. Celui réservé au 
PPC-PARIS est E1. 

LOWEST TOKEN #: Numéro de token le plus faible 
dans cette table. 

HIGHEST TOKEN #: Numéro de token Le plus grand 
dans cette table. 


NEXT TABLE LINK: Offset vers un autre Lex contenu 
éventuellement dans Le même fichier. Le 
programme MLEX, fourni à La fin de chaque JPC, 
permet de réunir des Lex indépendants sous Le 
même nom en remplissant convenablement cette 
zone. 00000 par défaut (1 seul Lex). 


SPEED TABLE: Lorsqu'un Lex contient de nombreux 
mots, La présence de cette table accélère la 
recherche de l'un d'entre eux. IL s'agit 
d'établir, pour chaque lettre de l'alphabet, un 
offset qui pointera vers le premier mot 
commencant par cette lettre. Un offset occupe 
3 quartets, il y à 26 lettres dans l'alphabet 
(j'ai vérifié 1), soit un encombrement de 
3*26=78 quartets. Ok ? 


TEXT TABLE OFFSET: Pointe vers Le second quartet 
de La Text Table. Le premier indique la 
longueur de La chaîne en quartets -1. 

MESSAGE TABLE OFFSET: Pointe vers La zone 
contenant Les messages. Voir FINDLEX de 
Jean-Jacques MOREAU dans Le JPC triple 31-32-33 
de Février/Mars/Avril. 0000 par défaut. 

POLL HANDLER OFFSET: Du mème tonneau que Message 
Offset. 


MAIN TABLE: Contient les informations nécéssaires 
à l'éxécution et à La décompilation de chaque 
mot. Les entrées sont rangées par ordre de 
token croissant. Chaque entrée est longue de 9 
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quartets, décomposés comme suit: 


TEXT TABLE OFFSET(3): Ajouté à l'adresse de 
la Text Table, il pointe Le quartet de VECTEURS SANS MODULE 
Longueur de l'intitulé du mot. 
L'intitulé suit immédiatement ce 


quartet. Par exemple Le mot "ABC" sera Voici un programme sur [Les vecteurs pour ceux 
codé: 5142434. 5 donne Las longueur en qui ne possèderaient pas Le module math (7)... 
quartets-1, 14 doit se Lire 41 hexa = 65 

= “A“, et ainsi de suite. En faisant Le Ce programme n'est pas de moi, car pris dans 
calcul indiqué on pointerait sur le 5 “Users'Library Solutions®, avec toutefois 
('nibble count! en anglais). quelques modifications. 


EXECUTION ADDRESS(5): Offset par rapport à 
l'adresse courante donnant Le début du 


code éxécutable. OPERATIONS SUR UN VECTEUR 
CHARACTERIZATION NIBBLE(1): Type du mt 
suivant le canevas suivant: N : norme 
bit 0: Légal depuis Le clavier. M : multiplie Le vecteur par un scalaire (nombre) 
bit 1: inutilisé U : calcule Le vecteur unitaire d'un vecteur, 
bit 2: Légal après THEN/ELSE c'est à dire Le vecteur ayant même sens, même 
bit 3: programmable direction, dont La norme est égale à 1. 


C : conversion RECTANG/POLAIRE et vice-versa 
TEXT TABLE: Contient l'intitulé des  tokens 
rangés per ordre alphabétique. 

SIZE OF TEXT-1(1): C'est Le ‘nibble count! OPERATION SUR DEUX VECTEURS 
vu plus haut. 

TEXT: 2-8 octets. Un mot doit faire eu 
moins 2 caractères pour ne pas entrer en 
conflit avec une variable. 

TOKEN # (2): Token du mot. 


additionne deux vecteurs 
soustrait deux vecteurs 
multiplie deux vecteurs 
angle de deux vecteurs 
produit scalaire 


Om XX nn >» 
.. 0 ve oo 


J'espère que ce Large extrait des 1DS I vous sers 
profitable car il m'a demandé pes mal de temps AUTRE 
+. Su niveau de La mise en page. 


Bonnes Vacances! F : permet de changer de format E/S 
A : fin 
Jean-Pierre BONDU (PC 33, SIG 3) REFERENCES : 


| Sales, S. end Hille, E.; "Calculus", XEROS 
| Hudson, R.; “The engineer's MANUAL®, Wiley 
| end sons, Inc. 


# # Tony GUILLOUX 
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LA PENSEE OÙ MAITRE SHADOCK 


Le Master Mind tout Le monde connait, et je me 
demande si tout Le monde ne commence pas à s'en 
lasser? Mais comme il faut bien se remuer un peu 
Les méninges, je vous propose Un nouveau jeu. 


Ce jeu est une variante du Master Mind 
(toujours lui) que L'on doit à Mr George Noël. 
En voici les régles : 


vous devez devinez un entier, par exemple de 4 
chiffres, que notre machine & “choisi”, vous 
devez alors proposer un nombre, et le 71 vous 
répondra par un nombre de La forme ‘x,y' où ‘x! 
désigne Le nombre de chiffres du nombre qu'a 
choisi Le 71 qui sont stictement supérieur au 
chiffre de mème rang du nombre que vous avez 
proposé et 'y' désigne Le nombre de ces chiffres 
qui sont strictement inférieur. Un exemple 
éclaircira tout! 


Le nombre que vous devez trouver est 4621 et 
vous proposez 1979, La réponse de La machine 
sera : 


1,3 
car 1 de vos chiffre est trop petit et les 3 
autres trop grands. 


Si vous désirez voire Les coups précédents, 
eppuyez sur La fléche qui descend (#51), pour 
revenir eppuyez sur La flèche qui monte (#50). 
Essayez au début avec 2 chiffres, puis avec 3, 
Le maximum est à neuf, mais alors Là, il veut 
mieux être accompagné! 


Le nombre d'essais autorisés est fixé à 3°N, N 
étant Le nombre de chiffres dans le nombre à 
trouver. 





Alain Herreman 


ECIRTAM 


A quand remonte le dernier programme 
d'inversion de matrices paru dans JPC ? À cette 
question je crois pouvoir répondre : février 
1985 1 Eh 1! oui, cela fait bien plus d'un an. 


Je me permettrai donc de rappeler ce vieil 
edage, qu'un ancien de JPC me remémors : 


“JPC, journal toujours à La pointe, se doit 
d'avoir, dans ses célèbres colonnes où tout les 
styles se côtoient, un programme d'inversion de 
matrices à hautes performances" ( relisez bien 
cette phrase elle frise La poésie ). 


Gauss 1! Tout ceux qui ont Les bras leviers pour 
avoir pensé à La méthode du pivot peuvent se 
rasseoir, Îls ont tout faux ! 


L'algorithme que je vous propose n'est peut 
être pes connu de tous, il est pourtant très 
simple. 


Soient A La matrice à inverser et I! La matrice 
identité de même dimension que A. Si vous faites 
des opérations sur Les colonnes de À de manière 
à obtenir La matrice indentité, en faisant ces 
mêmes opérations sur La matrice I, quand A sera 
La matrice identité, I sera La matrice inverse 
de A. Ce n'est pas magique, il existe même une 
démonstration ... 


Il ne me reste plus qu'à vous dire que pour 
inverser une matrice 10*10 ce programme prend 1 
minute. Je dois avouer que j'ai vraiment 
l'impression qu'avec ce programme j'ai aidé à 
l'emélioration 

teuwpin français . 


des conditions de travail du 


Alain Herreman 


PERI FEERIE 


PERIFLAG est un groupe d'utilitaires (à vous de 
leur trouver une utilité...) portant sur Les 
flags et Les péripheriques. 


PERITAB charge un tableau de 128 entiers avec 
Les edresses des péripheriques eyant Les ID 0 à 
127. Ainsi, l'adresse du premier Lecteur de 
cassettes sera A(16). 


PERITEST attribue un flag à chacun des "device 
word" (tape, printer...). Ce flag est allumé 
s'il existe sur La boucle un appareil de type 
correspondant, éteint sinon. Le paramètre L 
(pouvant être choisi entre 0 et 52) est la 
Limite inférieure du groupe de 11  flags 
utilisés. Après éxécution de PERITESY, on pourra 
vérifier La présence d'un type d'appareil 
simplement en testant Le flag correspondant. 


XF et FX sont équivalents à XF (extension de 
fonctions de La HWP-41). FX sauve l'état des 
flags 0 à 7 dans une variable X, et XF restitue 
cet état. 


RFLAG permet aux flags 0 & 4 de “refléter” 
l'état de tout autre groupe de 5 flags, défini 
par sa limite inférieure. 


Jean-Michel Kefaloucos (PPC#140) 
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SCRABBLE 


Voici un programme qui vous servira à tenir Le 
décompte des points de chsque joueur durant une 
pertie de Scrabble. 


Après avoir fait RUN, Le programme demande Le 
nombre de joueurs et propose Une valeur per 
défaut (modifiable en Ligne 140), puis Le nom de 
ces joueurs (5 cerectères maxi) à rentrer dans 
l'ordre dans lequel ils joueront. 


A 





En réponse à Ls question “Score de ...*, il est 

possible de répondre : 

- Le score de celui-ci 1! 

- #+” qui affiche Les scores de chacun avec 
leur moyennes 

- RETURN pour finir Le partie 

+ et RETURN ne peuvent être utilisés qu'après 

un tour complet. 


A La fin de La partie, Le programme demande la 
valeur des points restants de chaque joueur, Les 
totalise et les ajoute eu score du gagnant, 
comme cela est prévu dans Les règles du jeu. 


Les résultats, ainsi que Les moyennes, sont 
alors affichés ou imprimés par ordre 
décroissant, selon qu'une imprimante est 
connectée sur La boucle ou non. Dans ce cas, le 
programme précise pour chaque joueur Le score de 
son meilleur coup ainsi que Le plus mauvais... 


Christophe SIMON (P 160. T 516) 
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LE MECHANT pi. 


Bonjour tout Le monde, bonjour M Connan, voici 
le débilité du mois. 


Je suppose que vous connaissez tous par coeur 
votre formule de Méchain, et que vous savez donc 
tous que PI/4=4*ATAN(1/5)-ATAN(1/239)... 


De plus, vous savez tous que Le développement 
de arc tg est: 


ATAN(xX)=x-x"3/3+x"5/5-x"7/7+... 
+(-1) ntx" (2tm1)/(2%rm61)+... 


On mélange tout çè, on agite, on laisse reposer 
une demi - journée. 

Vous avez deviné où je veux en venir: un 
superbe programme qui calcule pi avec presque 
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autant de décimales que dans vos livres de math 
habituels (dans "les nombres et leurs mystères" 
d'André Warusfel, on trouve 1000 décimales). 


Avec ces deux formules, on définie ainsi (la 
suite U(n): 


U(n)zU(n-1)+6*(-1)°n 
1C%n1)%(4%(1/5)"C2%n#1)-(1/239)"(2*n91)) 


La suite U(n) converge ainsi vers pi. 
Le programme est très simple (quand il est 
commenté); Les variables sont: 


A(0,) tableau contenant 4*(1/5)*(2*n+1) 
A(1,) tableau contenant (1/239)*(2*n+1) 
A(2,) tableau zone de travail 

U() tableau contenant U(n) 

X nb de décimales à calculer plus 1 (dimension 
des tableaux) 

indice 2*n+1 

signe (-1)°n 

diviseur pour ‘DIV! 

indice du tableau à diviser ('DIV') 
indice d'opération 

sauvegarde momentanée (Ligne 110) 
retenue d'opération 

variable réelle utilisée par 'DIV' 


NN VDAEe = On 


Pour Lancer Le programme faites RUN, entrez le 
nombre de décimales recherchées, et armez vous 
d'un peu de patience et d'un bazooka si votre 71 
n'est pas d'accord avec Warusfel... 


Ce programme calcule 50 décimales en moins de 
23'40"05 (23'40"04 précisément). J'avoue avoir 
eu La flemme de mettre ce programme sur HP-15C 
pour plusieurs raisons. 

La première étant que je n'ai pas d'HP-15C, la 
seconde étant que je n'ai pas envie d'attendre 
la fin de mes jours pour qu'une HP-15C me donne 
50 décimales (si Le 71 met 20 minutes, cela 
m'étonnerai que La 15 mette moins d'une journée, 
la troisième étant que La mémoire de base du 71 
le limite à une centaine de décimales, et que je 
connais par coeur l'éventuelle dizaine de 
décimales que pourrait me donner La 15C ! 


Ceci étant dit, je me retire en vous laissant 
un dernier programme qui vous donne pi en 





Uwy 
PRoéRAnne 


DESINE -hov 


multiprécision, qui lui est beaucoup plus rapide 
et très facilement adaptable sur HP-15C. 


Vous Le commenterez vous-même (les insultes 
sont à envoyer au journal qui me les 
transmettera, et Les félicitations sont à 
m'adresser directement). 


Serge Vaudenay. 


NdR : Pour une information complète relative à 
PI, on consultera avec bonheur l'excellent 
ouvrage réalisé par la revue Euréks. Plusieurs 
centaines de pages regroupent tout ce que les 
lecteurs connaissaient (et ils étaient nombreux). 


mms mmmmmmmmmmmmmmmnesmsmmmsmmmmmmmmmmsss 


A LA CONQUETE DU GRAPH 


IL est toujours intéressant de Lire des 
programmes que l'on n'a pas écrits, aussi en 
feuilletant l'excellent Livre "Techniques de 
Basic“ paru aux Editions Mémoire Vive de Guillo 
et Robertson, cela m'a donné l'idée d'écrire le 
programme GRAPH1. 


Si vous aimez les chiffres, Les diagrammes, Les 
statistiques et autres tableaux récapitulatifs 
sur L'année, alors n'hésitez plus et jetez un 
coup d'oeil sur ce programme qui m'a permis de 
faire apparaître Le graphique que j'ai intitulé : 
“Niveau de La consommation mensuelle en kf", il 
ne reste plus qu'à en faire l'analyse... 


Jean-Claude FOURES 






















SFORMAT" formateur de texte. Nécessite FORMALEX 


HESTESSSSSSESSSSESSESEEERESSSEZSSSS=SSSSSSSSSSESESESEELELEESSESEZ=E 

1000 SUB FORMAT(FS,N) & DIM A$[256),BS[256+N] 

4010 SFLAG -1 & PURGE FTXT @ CFLAG -1 @ CREATE TEXT FTXT @ ASSIGN #1 TO F$ & ASSIGN #2 TO FTXT 
1020 P=0 @ ON ERROR GOTO 1050 & READ #1,0;A$ @ OFF ERROR @ IF A$[1,1]="\* THEN 1060 

1030 1F AS[1,1]=""#" THEN AS=CENTERS(REDUCES(AS [2] ),N) 

1040 DELETE #1,0 @ PRINT #2;A$ & GOTO 1020 

1050 PURGE F$ @ RENAME FTXT TO F$ @ END 

1060 AS=AS(2) @ IF AS[1,1)=""" THEN AS=ASI2] @ P#CEILC(N/10) 

1070 B$="" @ CFLAG 5 & GOTO 1090 

1080 READ #1,0;AS$ 

1090 DELETE #1,0 & AS=REDUCES(AS) 

1100 IF ASILENÇ(AS)J="\" THEN SFLAG 5 @ AS=AS[1,LEN(AS)-1] 

1110 1F NOT LENÇCAS) THEN 1140 ELSE B$=BS&" "&AS 

1120 AS=Uu à IF LEN(BS)<=N-P THEN 1160 ELSE AS=BS[CESURE(BS,N-P)+2)] @ B$=B$[1,CESURE(BS,N-P)] 
1130 BS=SPACES(P)&FORMATS(BS,N-P) @ PRINT #2;BS$ à B$=A$ à P=0 à IF LEN(BS$)>N THEN 1120 

1160 IF FLAG(S) THEN PRINT #2; SPACES(P)B&REDUCES(B$) @ GOTO 1020 ELSE 1080 


ee re er re rer rer er re re ee ir EE RÉ RÉ RÉ RÉ RÉ RRÉ RRRRRRRRRR RER RE E EÉ E 


#SCANALEX" pour scruter Les LEX. Nécessite DESAL 


- PEEKS,HTAS,REVS (=DESAL) + HPILROM 
10 INPUT #Lex File ";F$ & CALL SCANALEX(FS) 


ESESESSESESSESSESE= SSSSECSEESESSESESSEESSSSEESSSSSSSSESESESESSEESESE 
1000 SUB SCANALEX(FS) 
1010 ON ERROR GOTO 1260 
1020 A=HTD(ADDRS(FS))+37 & B=A @ OFF ERROR 
- A et B @ LEX ID 
1030 NS=PEEKS(DTHS(A-21),4) 
- NS = File Type 
1040 1F DTHSCBINAND(HTDCNS),HTD(*802E")))#'0802E* THEN DISP MSGS(63) @ END 
- LEX File Type = ‘B02E' , ‘9O2E! , ‘AO2E! , ‘BO2E! 
suivent état NORMAL , SECURE , PRIVATE, S&P 
1050 DELAY 0 8 DISP à DISP FS;TAB(12);"LEX#: 9; 


ESSSSSSSESSSSSEESSESSSESSSESSESSESSSSSSSESSSEESSESSESEEEZEEEEES 
1060 :CNTLEX': DISP REVS(PEEKS(DTHS(B),2));" %; 
- Affiche L'ID du LEX pointé par B 
1070 Bz=B+6 à Z=HTD(REVS(PEEKS(DTHS(B),5))) 
- Z= Next LEX Table Link : un autre LEX est-il Linké ? 
1080 1F 2 THEN B=B+2 @ GOTO "CNTLEX' ELSE WAIT 1 @& DISP 
- oui: on pointe ce LEX (B=B+offset) et on recommence (CNTLEX) 


E=SSSSSSSSESSESEESSESSESSESSSSSSSSSESESESSSSSESSSSEEESESEEESEE= 
1090 :MAINLOOP': DISP @ DISP REVS(PEEKS(DTHS(A),2)) & WAIT .5 
- Tous Les Lex ID ont été affichés, on va maintenant 
Lister Les mots contenus dans chaque Lex. 
1100 B=A+12 9 IF PEEKS(DTHS(A+11),1)= "0! THEN B=B+79 
- Si La Speed Table éxiste (longue de 78+1 quartets), on La dépasse. 
1110 T=B+HTD(REVS(PEEKS(DTHS(B),4))) 
- B pointe Le Text Table Offset 
T pointe Le Text Table (= intitulé des tokens). 


JPC 34 Page 35 


Te 


___ JPC 34 Page 


1120 M=8+13 
- M pointe La Main Table 


1130 'KEYLIST': FOR I=0 TO 255 
1140 NS=PEEKS(DTHS(T-1),19) 
- N$(1,11= longueur de l'intitulé -1 en quartets =x-1 
NS[2,x+i]= intitulé en ASCII (de 2 à 8 caractères = 4 à 16 quartets) 
NSIx+2,x+3]= Token# du mot 
1150 IF N$(1,3)='1FF' THEN 'NXTLEX' | Fin de La Text Table 
1160 Z=HTD(NS(1,11)+1 @ T=T+2+3 
- Z= longueur en quartets de l'intitulé 
T à intitulé suivant dans La Txt Table 
1170 NS=STRS(HID(REVS(NS(Z+2,2+3))))8" "&HTAS(NS(2,2+1]) | N$= token# + nom 
1180 Z=M+9*1+3 
- QtIz offset que l'on ajoute à L'ADR de Main Table (M) 
Z à token dans La Main Table 
1190 ZS=REVS(PEEKS(DTH$(Z),6)) 
+ 211,1] = type du mot ; Z$(2,6]= offset to execution adress 
1200 DISP NS: TAB(13);°['&2811,1)1&)';TAB(17); "#1; DTHS(Z+HTD(Z$(21)) 
- Token Nom [Type] #Point d'entrée 
1210 K$=KEYWAITS 
1220 1F K$='=! THEN CALL DESAS(DTH$S(Z+HTD(Z$(21))) @ END 
1230 NEXT 1 ! Token suivant 


Z222222====222S=STSSSSSSSRSESSZIELSTIISISSSELELEZEZEESSLSELELLS 
1240 'NXTLEX': Az=A+6 à Z=HTD(REVS(PEEKS(DTHS(A),5))) 
- cf Ligne 1060 
1250 1F Z THEN A=A+Z @ GOTO ‘MAINLOOP! 
1260 END SU8 


CORAN SR ARR R RAR RSR RR RÉ R RARE RSR NRA RÉ RAR RÉ RÉNRRRÈNNELLELLÉÉLÉÉRR RÉ R RER E RENÉ NÉLLÉÉÉÉLÉRER A 


"VECTO* pour se passer du module MATH 


10 RESET à RADIANS à DIM A$[4],8$(11],0$1(2],E$(4] @ B$='ASXIDNMUCFQ' à D$='YN! 
20 ON TIMER #1,.1 GOTO 30 à BYE 

30 OFF TIMER #1 à CHARSET CHARSETSECHRS(O)&CHRS (255 )&CHRS(O)ECHRS(255) 

40 DISP ‘'Entree R/C ?'; 

ES=KEYWAITS à IF NOT POS('CR',ES$) THEN 50 

DISP à CFLAG 1 @ IF ES$='C' THEN SFLAG 1 

F$zixat à G$='yz! à IF FLAG(1) THEN F$z'ra! @ G$z'=! 

DISP ‘Sortie R/C 7!'; 

ES=KEYWAITS à IF NOT POS('CR',E$) THEN 90 

100 DISP à CFLAG 2 à IF E$='C' THEN SFLAG 2 

110 H$z'xz! à IS$='yz! à IF FLAG(2) THEN H$='r=! à I$z=!! 

120 DISP 'ASXIDNMUCFQ!' 

130 ES=KEYWAITS à A=POS(BS,ES) à IF NOT À THEN 130 

140 1F A=11 THEN 'Q' 

150 IF A=10 THEN CFLAG 1,2,3 @ GOTO 40 

160 1F A#9 THEN 190 

170 1F NOT FLAG(1) EXOR FLAG(2) THEN DISP ‘1/0 Incorrect' à BEEP à WAIT 1 ELSE 190 
180 GOTO 40 

190 1F A<é THEN 230 

200 1F FLAG(3) THEN 280 

210 DISP F$; à INPUT !';C à IF FLAG(1) AND C<O THEN DISP MSG$(11) @ BEEP à WAIT 1 à GoTo 200 
220 DISP G$: à INPUT ‘';F à INPUT ‘z=';1 à GoTO 280 


88386 


36 








230 1F FLAG(3) THEN 260 

240 DISP ‘Vct 1:'&FS; @ INPUT ‘':C @ IF FLAG(1) AND C<0 THEN DISP MSG$(11) & WAIT 1 & GOTO 230 
250 DISP ‘Vct 1:'8G$; & INPUT ‘':F @ INPUT ‘Vct 1:z=';1] 

260 DISP ‘Vct 2:'8F$; @ INPUT ‘':D @ 1F FLAG(1) AND D<O THEN DISP MSG$(11) 8 WAIT 1 & GOTO 260 
270 DISP ‘Vct 2:'8GS$; 8 INPUT ‘':G @ INPUT "Vct 2:z=';J @ IF FLAG(1) THEN CALL C2R(D,G) 

280 1F FLAG(1) THEN CALL C2R(C,F) 

290 GOSUB ES 

300 DISP & 1F IPC(C(A--1)/3)=1 OR A=9 THEN CFLAG 3 @ GOTO 120 

310 DISP ‘Resul. Utile ?'; 

320 ES=KEYWAITS ® IF NOT POS(D$S,ES) THEN 320 ELSE DISP 

330 1F POS('N',ES$) THEN CFLAG 3 & GOTO 120 

340 1F NOT POS('Y',ES) THEN 300 

350 1F FLAG(2) THEN CALL C2R(B,E) 

360 C=B à FE @ I=hH @ SFLAG 3 & GOTO 120 


370 ‘A': B=C+D @ E=F+G 9 H=1+J @ GOSUB ‘G' à RETURN 


EEESSSSSSSSSSSSSSSSEESSSEESSISSEELESLEISESSESSESSSSEESSSSESEEEE 


380 'S': B=C-D à E=F-G & H=1-J & GOSUB ‘G' & RETURN 


RETLETESEZSSESSSSSEZESEESSELLESSEESESSSEEEESESSEESESSESEEEEEEEE 


390 ‘D': Q=CD+F*G+]1*J à DISP 'U.trens(V}=';Q @& GOSUB ‘W' & RETURN 


EZESSLESSECERELEETEEEESESEEEEE=SEEESELESE SESEEEEEEEEEEEERESEEE 


400 'X': B=F*J-G*1 @ E=l*D-J*C @& N=C*G-D*F & GOSUB ‘G' & RETURN 


HETESSESESESSSSSSSSSSESESSSESEESSESEEZSSS==SESS=SESESSSESELELELEZ 


410 ‘M': INPUT 'Scl=';S à B=C*S @ ErF*S @ H=]1*S @ GOSUB ‘G' & RETURN 


ESESSESSSSSSSSSSSSSESSSSSESESSESESSESESSSSSSESSESSSSSESESSEEEEESEE 

420 ‘I': SFLAG 4 @ GOSUB ‘N' & CFLAG 4 @ P=SQR((D-C)"2+(G-F)"2+(J-1)°2) 
430 LeCN*N+0*0-P*P)/(2*N*0) & K=.00000000002 

440 1F FP(FPC(ABS(L))+K)<.000000000045 THEN LæIP(L+SGN(L)#K) 

450 M=ACOS(L) @ DISP ‘=';:M @ GOSUB ‘W' @ RETURN 


HESZSREZEEESESESSESESESESESESEESEEEEEESESEEEEESSEEESESEEEEEEEEEESEE 
460 'N': NESOR(C*C+F*F+1*1) @ O=SOR(D'D+G*G+J*J) 

470 1F NOT FLAG(4) THEN DISP 'Norme(V)=';N & GOTO ‘W' 

480 RETURN 


EETSSESSSSSSESSSSSSSESSESSESSESSSSSESSSESSSESESSESEESE=S=ESEEEEE 


490 ‘U': SFLAG 4 & GOSUB ‘N' @ CFLAG 4 @ B=C/N à ErF/N @ H=1/N @ GOSUB ‘G' @ RETURN 


500 ‘W': AS=KEYWAITS & RETURN 


ETSSSSESSSSSSSELSSESSSSSSSSESSESSESSEEEEEESSSSESSSSEESSEILIELEEEEESEZ= 
510 'C': B=C 8 E=F @ H=] 
ÆESSSESSESSEESESESSSSSSSSSSESSSSTESSESSESESSSESESSESSESSSSEEEESZE 
520 ‘G': IF FLAG(2) THEN CALL R2C(B,E) 

530 DISP H$;B @ GOSUB ‘W' @ RETURN 


ESSSSSSSSSSSSSSSEEEESSSSSSSEESESSSSSSSESSSSSSEESSSESSSEEESEEEEZE 


540 ‘Q': RESET & PUT ‘#43! 


ESSSSSSSSSEISSSSSSSEESSETREESSSSESSSIESSSSSESSESSSSSEREESESSESEE 


550 SUB R2C(R,T) @ I1ER à J=T 8 ReSOR(I*1+J*J) & T=ANGLE(I,J) 
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560 SUB C2R(I,J) à R=l à T=J à I=R*COS(T) à J=R*SIN(T) 


CRRRRRRR RAR RSR R ARR NÉ RER R SR RSR RAS RER RAR RS RÉ SSSR RMS RAR RSA R RARE RER RÉ LÉ ARR R RER E RER EN 


“NEW MASTER* pour faire d'un neuf 111 


10 DELAY 0,.3 à DESTROY ALL à INTEGER N,E 

20 USER ON à DEF KEY "#50",""u: à DEF KEY "#51%,## 

30 INPUT "Nbre de chiffres : ":N à IF N<z1 OR N>9 THEN 30 

40 AzINT(10"N*RND) à IF A<10*(N-1) THEN 40 

50 DIM B(2,3*N) 

60 E=E+1 à IF E=3*N+1 THEN DISP “Une belote?" à BEEP 400,2 à WAIT 3 à GOTO 'FIN' 
70 DISP "Essai n';STR$S(E);": ": à INPUT "*:B$ à IF LEN(B$)>N THEN 70 

IF LEN(B$)<2 THEN 180 ELSE B(1,E)=VAL(B$) 

IF B(1,E)<10*(N-1) THEN 70 

100 AîzA à B128(1,E) à DISP "Essai n'[(N>5)*7,8];STR$(E);": M; STRS(B(1,E));" : * 
110 FOR I=1 TO N 

120 C=FP(A1/10) à D=FP(B1/10) @ A1=2INT(A1/10) à B1=INT(B1/10) 

130 1F D>C THEN B(2,E)28(2,E)+.1 

140 1F D<C THEN B(2,E)=8(2,E)+1 

150 NEXT 1! 

160 1F B(2,E)=0 THEN DISP & BEEP à DISP “Vous avez trouve en";:E;"coupsi" à WAIT 3 à GOTO ‘FIN' 
170 DISP STRS(B(2,E)) @ WAIT 2 & GOTO 60 

180 1F E#1 THEN I1%£-1 ELSE 70 

190 DISP "Essai n'[(N>5)%7,8); STR$S(1);":":B(1,1);": ":STRS(B(2,1)) 

200 IF KEYDOWN('#51!) THEN 220 

210 1F KEYDOWN('#50') THEN 230 ELSE 190 

220 1F 1=1 THEN 190 ELSE I=1-1 @ GOTO 190 

230 1F I=E-1 THEN 70 ELSE I=1+1 à GOTO 190 


888 


. 
. 


240 ‘FIN': DISP "On continue [Y/N]* 
250 1F KEYDOWN('#34') THEN DEF KEY "#50" à DEF KEY “#51* à END 
260 IF KEYDOWN('#6') THEN DISP à GOTO 10 ELSE 250 


aonnennnnameaatanennettnntt etant net nee Red Reed eee At Re RSR R 


MECIRTAM“ tout simplement renversant 


10 DELAY O0 à OPTION BASE 1 à DESTROY C,B 

20 INPUT "Dim. de La matrice: ":N @ DIM ACN,N),BCN,N) 
30 FOR 1z=1 TO N à FOR Jzi TO N 

40 DISP MACM:STRSCI); "M STRS(J);"]="; Q INPUT M“; A(I,J) 
50 NEXT J à NEXT 1 à DISP “ Je calcule ..." 

60 FOR I=1 TO N à B(1,1)z1 à NEXT 1! 

70 FOR K=1 TO N 

80 1F ABS(A(K,K))>.0000000001 THEN 130 

90 FOR J=K+1 TO N à IF ABS(A(K,J))>.0000000001 THEN 110 
100 NEXT J à BEEP à DISP “Matrice non inversible" & END 
110 C=A(K,J) à FOR I=1 TO N à B(I,K)=(B(I,K)+B(1,J))/C @ 1F 1>K THEN ACI,K)=(ACI,K)+A(1,4))/C 
120 NEXT I @ GOTO 160 

130 C=A(K,K) & FOR I=1 TO N 

140 BCI,K)=B(1,K)/C à IF 1>K THEN ACI,K)=A(1,K)/C 
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150 MEXT 1 

160 FOR J=1 TO N @ IF J=k THEN 210 

170 CeA(K,J) @ FOR I=1 TO N 

180 BCI,J)=B(1,J)-C*B(I,K) 

190 1F 1>K THEN ACI,J)=A(1,4)-C*ACI,K) 

200 MEXT 1 

210 NEXT J & NEXT K 

220 FOR I=1 TO N @ FOR J=1 TO N 

230 DISP "INvAL":STRS(1): M, M: STRS(J); M) STRS(B(I,J)); @ INPUT ‘!;A$ 
240 NEXT J @ MEXT I 


CRRRR RARE RER RÉ RÉ RR RER RR RÉ RÉ RÉ RÉ RM RÉ RÉ RSR RSR RÉ RSR RÉ RS RÉ ÉR RSR ER RÉ RÉRR RÉ RER RÉ RS ÉRÉÉRÉÉR  R 


#PERIFLAG" e plus d'un tour dans sa boucle 


BESSESLEESEESEESSESSESEESESSEESESESESEEESESSSSSSSSSSSSSSSSESSESSES 
10 ‘PERITAB!: 
20 OPTION BASE O 
30 DIM A(128) 
40 FOR I=0 TO 127 
50 ACI1)=DEVADDR("X"ESTRS(1)) 
60 NEXT 1 


HEETESEESSESESSESSSSSEESESSESSSEESSSESESEESETEEEEZ=ESSEESSEEESE 
1000 SUB PERITEST(L) 

- L= Limite inferieure des flags utilises 
1020 IF L<O OR L>52 THEN DISP ‘Erreur: 0 <= L <= 52! @ END 
ŒHESTSSSSSSSSESSESSESESSSESSSSSESSSSSSESSESSESESES=SSSESSEEEESEZ 


1030 DATA HP71,MASSMEM, TAPE ,PRINTER, DISPLAY, INTRFCE ,GP10,MODEM,RS232,HP1B, INSTRMT, GRAPHIC 


MEZESS=ESEESSSSEESEEESEEESSESSESSSESSESEFESEESSSESESSELELEEEEEESE 
1040 N=11 

1050 ON ERROR GOSUB "ERREUR" 

1060 FOR I=l TO L+N 

1070 READ P$ 

1080 1F DEVADDR(P$)#-1 THEN SFLAG ] ELSE CFLAG 1 

1090 NEXT 1 

1100 OFF ERROR 

1110 END 


EESSESSSESSÉSSESSESSEISSSSESSSESESSSSESSSSSSSSSSSESEIESESSSESELEEESE 
1120 ‘ERREUR! : 
- Cas ou Le boucle est interrompue 
1140 1F ERRN#255035 THEN GOTO 1180 
4150 FOR IzL TO L+N 
1160 CFLAG ] 
1170 NEXT 1! 
1180 RETURN 


Æ=ES==SSEEESSSSSSSSSSSEESESESESSSSSEESESSSSSSESESESSSSSSSSESSEEEES 
2000 SUB FX(X) 

2010 DESTROY X 

2020 FOR 1=1 TO 7 

2030 1F FLAG(I) THEN X=X+2"1 

2040 NEXT 1! 
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2050 DISP X 


H==223==2=2222225SSSISSSSSESESSSESEESSSSSSES SES E EE === RSEESESEE 
2060 SUB XF(X) 

2070 FOR 1=7 TO O STEP -1 

2080 1F X DIV 2*I=1 THEN SFLAG I @ XzX-2*1 ELSE CFLAG I 

2090 MEXT I! 


LI==SS2SISSRESERDEEESES=SEISZZTSESSSESSESSLESS ESS ESEESSEESELEZSS 
3000 SUB RFLAG(L) 

3010 IF L<-64 OR L>59 THEN DISP ‘Erreur: ! @ END 

3020 FOR F=0 TO 4 

3030 DISP USING ‘*';FLAG(F,FLAG(F+L)) 

3040 NEXT F 

3050 END SU8 


SÉRRRRR RSR RAR AR RAR AR RAR ARR ARR ORAN ANR RNA RM RM RAR Re Me Me Ré Ne Re 


"SCRABBLE* un oeil qui compte les points 


100 DESTROY ALL à LC ON 

110 INTEGER DO,D1,1,K,K0,K1,N,T 

120 DO=.1 à Di=.01 

140 INPUT "Nb de joueurs ? *,"4%;N 

150 DIM JSCN) à INTEGER B(N),SCN),MCN,2),PCN+1) 


170 FOR Iz=z1 TO N 

180 DISP “Nom du joueur“;1; 

190 INPUT J$(1) 

200 1F J$(1)="" THEN 180 

210 IF LEN(J$(1))>5 THEN BEEP @ GOTO 180 
220 MCI,1)=INF @ M(1,2)=-INF 

230 NEXT 1 


250 DISP "Appuyer sur une touche” 
260 AS=KEYWAITS 

270 T=1 Q 1=1 

280 DISP "Score de ";J$(1);" *; 

290 INPUT AS 

300 1F AS=#" THEN ‘FIM' 

310 IF A$=#+" THEN 'SCORES" 

320 IF STRS(VAL(AS))#AS THEN BEEP à GOTO 280 
330 S(1)=S(1)+VAL(AS) 

340 MC1,1)=MINC(VALCAS),MC1,1)) 

350 MC1,2)=MAX(VAL(AS),MC1,2)) 

360 1=1+1 à IF I>N THEN Iz1 à T=T+1 
370 GOTO 280 


Des s=222==22==SS2SSSSSSZSSSSLSLISSSSSESSSSSSSE SES SSSSSSSSEEE 
390 'SCORES! : 

400 IF T=1 THEN 280 

410 DELAY INF,D1 

420 DISP T-(1=1);" Tour“; à IF T-(1=1)>1 THEN DISP “s*; 

430 DISP 

440 FOR K=1 TO N 

450 DISP JSK); : M: SCK);%->M; IPC1O*S(K)/CT-(K>=1))2/10 

460 MEXT K 


__ JPC 34 Page 40 


0 


470 DELAY D0,D1 
480 AS=KEYS 
490 GOTO 280 


EEEESESSEEEEEEEEESSESESEEEEEEESECSSES=SEEESESEEEEEEEEEEEESEEESE 
510 ‘FIN': 

S20 DISP “Fin de La partie?(0o/n)" 
530 AS=KEYWAITS 

S40 1F UPRCS(AS)#"O" THEN 280 
550 TsT-(1=1) à I=l-1+N*(1=1) 
560 FOR K=1 TO N 

570 1F K=] THEN 620 

580 DISP "Reste de ";:JS(K);" %> 
590 INPUT B(K) & B(K)=-ABS(B(K)) 
600 1F B(K)=0 THEN 580 

610 B(1)=B(1)-B(K) 

620 NEXT K 


640 S(0)=-1NF 

650 FOR K=1 TO N 

660 KO=1 

670 1F SCP(KO))+B(P(KD))>=S(K)+B(K) THEN KO=K0+1 & GOTO 670 
680 FOR Ki=N TO KO STEP -1 

690 P(K1+1)=P(K1) 

700 NEXT K1 

710 PCKO)=K 

720 NEXT K 


740 DISP "Imprimante ? (o/n)" 

750 AS=KEYWAITS 

760 1F UPRCS(AS)="0* THEN !IMP' 

770 DELAY INF,D1 

780 DISP T;" Tours" 

790 FOR K=1 TO N 

800 DISP JSC(P(K)):M = M: SCPCK)); @ IF B(P(K))>0 THEN DISP #+%; ELSE DISP #-%; 
810 DISP ABS(B(P(K)));"->"; SCPCK))+B(PCK)) 
820 MEXT K 

830 DELAY D0,D1 

840 AS=KEYWAITS 

850 GOTO 770 


ŒESTESESTEESESSSESSESESESSSSSSSEEESSSESSSSSSESLSES ESS ESSELESEES= 
870 ‘IMP': RESTORE 10 

880 PRINT “Date: ":DATES (7,8) ;DATES [3,6] ;DATES [1,2] 

890 PRINT @ PRINT T;:" Tours" 

900 FOR K=1 TO N 

910 IMAGE SA," :4,4D,X,S30," = #,4D 

920 IMAGE 5%-",3X,2D," < #,2D.D," < %,3D 

930 PRINT 

940 PRINT USING 910; JS(PCK)),SCP(K)),BCPCK)),SCPCK)}+B(PCK)) 
950 PRINT USING 920; MCPCK),1),1PC(10*SCPCKD)/CT-CPCK3>1323/10,MCPCK),2) 
960 MEXT K 

970 PRINT @ PRINT M-----------e--sssmse “ à PRINT 

K=0 

FOR I=1 TO N 

1 K=k+S(1) 

1010 NEXT 1 

1020 PRINT “Total : ";K @ PRINT @ PRINT ® PRINT & PRINT & PRINT 


838 
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“PI* au troisième BEEP vous aurez La précision 


- Calcul de pi (formule de Méchain) 
Initialisation des variables 
20 DESTROY ALL @ INPUT ‘Nb de décimales ? ';X @ DISP '=.,'; @ Xz=X+1 
30 OPTION BASE O à INTEGER A(2,X),WCX),UCX),N,S,D,1,J,K,R à REAL C 
- fnN1(N)= chiffre des unités de N(premier chiffre en partant de La droite) 
fnN2(N)= chiffre des dizaines de N(deuxième chiffre en partant de La droite) 
fnC(N,1)= (i-ème chiffre de N en partant de La droite) 


- Nz1 à Signe positif à A(0,)=4/5 à A(1,)=1/239 
50 N=z1 à Sz1 9 A(0,0)=4 à A(1,0)=1 à D=5 à GOSUB 'DIV' à D=239 à GOSUB 'DIV' à GoTo 70 
- Boucle de calcul de U(n) 
division chiffre à chiffre: A(0,)=A(0,)/5°2 
division chiffre à chiffre: A(1,)=A(1,)/239"2 


ESSSSSSSSISTIZZSSSESSSSIZSTTSESSESSIELEIZZIZIZISEZSESSE=====ZIZEZEzzzZS 

60 'BOUCLE': D=25 à GOSUB ‘DIV! & D=57121 & GOSUB 'DIV' 

- soustraction chiffre à chiffre: A(2,)=A(0,)-A(1,) 

70 R=0O à FOR J=X TO O STEP -1 

80 A(2,J)=A(0,J)-A(1,J)-R @ IF AC2,J)<0 THEN A(2,J)=A(2,J)+10 à R=1 ELSE R=0 

90 NEXT J 

- multiplication chiffre à chiffre: A(2,)=A(2,)*4 
100 R=0O à FOR JzX TO O STEP -1 
110 K=A(2,J) à AC2,J)=FNN1CK*4+R) à R=FNN2(K*4+R) 
120 NEXT J 

- division chiffre à chiffre: A(2,)#A(2,)/N 
130 D=N à GOSUS ‘DIV! 

- somme chiffre à chiffre: U()=U()+S*A(2,) 
140 R=0 9 FOR J=X TO O STEP -1 
150 UCJ)=U(J)+S*(A(2,J)+R) 8 IF U(J)<0 OR UCJ)>9 THEN U(J)=M00(U(J),10) à R=1 ELSE R=0 
160 NEXT J 
170 S=-$S à N=N+2 à 1=0 

- affichage d'un point indiquant l'évolution du programme 
180 DISP ‘.'; 
190 1F (N-1)/2<X THEN BOUCLE! 

- fin: affichage de pi 
200 DISP @ DISP '=3,'; à FOR N=1 TO X-1 @ DISP STR$(U(N)); à NEXT N à DISP à END 

- division chiffre à chiffre: A(1,)=A(1,)/D 

sortie du sous-programme en incrémentant I(pour préparer La prochaine division) 


Ses=sssnszzzszz====s==LSSSSSSSSSSSSSISSSESELSSEE=S == EISSSLESLIEES 
210 ‘DIV': C=0 @ FOR J=0 TO X 
220 C=C*10+A(1,J) & ACI1,J)=1P(C/D) à C=MOD(C,D) 


230 MEXT J 
240 I=1+1 @ RETURN 


ARR R DRAM RAR ARR R MR RAR ARR ARR RNA MMA R M RNA MR RÉ RÉ ARR MAR RAR NRA RER LR ERA RER ERRER ES 
“P12* toujours pire 
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10 INPUT ‘Nb de décimales ? ‘;X 
15 1F X>200 THEN DISP ‘Cf: palais de La découverte.' à END ELSE DISP 'pi=3,! 
20 DIM AS[S0] & FOR 1=0 TO IP((X-1)/50) @& READ AS$ à DISP AS[0,X-50*1] @ NEXT 1 


ŒÆZSSESSSSSSSEIZLSEZTEIEZEEESE=SSSSSSSESSSESEESSSEE=S=SESESSESEI EZSEZERE 
30 DATA 1141592653589793238462643383279502884197169399375 10" 
40 DATA '58209749445923078164062862089986280348253421170679 
50 DATA :821480846513282306647093844609550582231725359408128 
60 DATA ‘48111745028410270193852110555964462294895493038196! 


PTT ST TT lis siilililliisiliiiiisiiiiliiiiiiiiiiiiiillili;;;;;;i;i;i)ii;ilii;l);;););;);););;);;;;;)););.);, 


GRAPH" voyez Le consommation 


- PRESENTATION DE VALEURS CHIFFREES SOUS FORME GRAPHIQUE 
PGM=GRAPH1 / HP71B et ThinkJet 
JCF Dec 1985 

40 DESTROY ALL 

20 FIX 2 

30 DIM MS(12)(71,R(12),AS$ [50] 
40 FOR I=1 TO 12 

50 READ M$(1) 

60 MEXT 1! 

70 FOR I=1 TO 12 

80 READ R(1) 

90 NEXT I! 


100 DATA JANV +,FEV +,MARS +,AVR +,MAI +, JUIN + 
110 DATA JUIL +,AOUT +,SEPT +,OCT +,NOV +,DEC + 
120 DATA 4.19,6.09,6.021,2.128,3.51,6.994 
130 DATA 3.653,5.36,2.91,3.78,6.011,3.9999 


HESLSSSLSERSSSSESSSSSSSSESEESSESEESEESESEESSEEEEEESSSESEZEEESEE 
160 PRINT "MOIS NIVEAU DE LA CONSOMMATION MENSUELLE EN KF 
150 PRINT 
160 L=0 à S=0 
170 FOR I=1 TO 12 @ IF L<zR(1) THEN L=R(1) 

180 NEXT 1! 

190 K=40/L 

200 FOR I=1 TO 12 

210 N=INT(R(I)®K) 

220 S=S+R(1) 

230 GOSUB ‘FORMAT! 

240 PRINT MS(1);TAB(8);AS,R(I) 

250 NEXT 1! 

260 PRINT USING "5! ,551+1,41 !,41m1" 
270 A=S/12 

280 N=A*K-2 @ GOSUS FORMAT! 

290 PRINT 

300 PRINT "MOY. + ":TAB(8);AS,A 

310 PRINT TOTAL POUR L'ANNEE ";TAB(64);S 
320 END 


ÆXZESSLEREEZESSESEESESSSESSSSEESESSE===EEZEE= LZZZZSEZzE=z=z=== ==22z2s: 
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330 ‘FORMAT': 
340 FOR J=1 TO N 
350 ASCJJ='*! 


360 NEXT J 

370 FOR J=N+1 TO 40 

380 ASCJJ=!' ! 

390 NEXT J 

400 RETURN 
MOIS NIVEAU DE LA CONSOMMATION MENSUELLE EN KF 
JANV + PTTIIIIIIIIILLIL LILI LS LL LES SE) 4.19 
FEV + tenteneneaeemmenmennenenaaenneennenee 6.09 
MARS + tentrenenmemeeneneaetentet 4.02 
AVR + treeneeensen 2.13 
MAI + téveemeneeeeeeneenennne 3.51 
JUIN + feteeetenmeneenmemeeneneeters 4.99 
QUIL + teremmeneemenmmnanenant 3.65 
AOÛT + tnmemeneemeeememeetaneenetataene 5.36 
SEPT + téereneenemenennert 2.91 
OCT + tésreseeneneneenereenaet 3.78 
NOV + mrteaeemanenmeeneaeaneeat eee eee te 6.01 
DEC + treemnenmnnenenenneenentet 4.00 


A + =23z 


MOY. + Rhtéetéiatiettetéééeetete 4.22 


TOTAL POUR L'ANNEE 50.65 


RRRRR NRA R RAR RSR NRA RAR MR ADN R RAR RAR RAR ARR ARR RÉ RNA RAR RM RÉ RÉ RÉ RAR RAR RSR ARR R RAR RÉ 


“ASSRED* formateur de source assembleur 


10 DIM A$(256],8$,F$,1,J,L,P 

20 L=50 

30 INPUT "Fichier: ":F$ @ P=NOT POS(FS,":#) 

40 ASSIGN #1 TO FS$ 

50 SFLAG -1 à PURGE RT @ CFLAG -1 à CREATE TEXT RT @ ASSIGN #2 TO RT 
60 FOR I=1 TO FILESZR(FS) 

70 READ #1;A$ à 1F P THEN DELETE #1,0 

80 1F LENCAS)<zL THEN PRINT #2;:A$ à GOTO 'SUITE" 

90 B$=A$(1,23] à ASrA$ (24) 


ŒSSSSSSSSSSSSESSSSZSSSSIZISZSSSSISZIISSISSSSE=== = S===LIIISEZZI=ZISESS 
100 ‘TQ': J=L-22 
110 IF NUMCAS(J])#32 THEN J=J-1 à GOTO 110 
120 PRINT #2:BS8AS(1,J-1] 
130 AS=AS(J+1] à 8$=" . “ 
140 IF LENCAS)>L-22 THEN ‘TO! 
150 PRINT #2;BSLAS 


Z=x2-222ZZST=SSIIZIEZ=SSSSSSTSSSTTISELESSLSSSSSSSS SSL LEST2SSIEEZE 
160 "SUITE": NEXT I @ ASSIGN #1 TO * à ASSIGN #2 TO * 

170 1F P THEN PURGE F$ ELSE F$2F$(1,POS(FS,":")-1] 

180 RENAME RT TO F$ 
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LE COIN DES LHEX 


En plus des LEX de La rubrique assembleur vous 
trouverez dans Le coin CHARLEX et FORMALEX qui 
vous sont nécessaires pour “AH | VOUS ECRIVEZ". 


D'autre part, vous trouverez ici Le version 
euthentique, Le seule, l'unique de STRUC1. 


J.J. DHENIN 


CHARLEX 1D 225 
FORMALEX CENTERS 225034 
CESURE 225035 


FORMATS 225036 
REDUCES 225037 


SPACES 225038 
STRUC1 END 225066 
LEAVE 225070 
REPEAT 225068 
UNTIL 225069 
WHILE 225067 
LINKLEX LABELS 225076 
MNEMO 225077 
Mu MOLEWT 80001 


PROGRAMME MAKELEX 





40 CALL MLEX à SUB MLEX @ SFLAG -1 @ PURGE AH @ INPUT “Nb. d'octets: “;N @ LC OFF 


20 CREATE DATA AH,1,N-4 & A=HTD(ADDRS("AH")) @ BzA @ GOSUB 130 
30 Q=1 & X=0 à INPUT "000: #,P$S;AS$ & CSrA$ @ S=0 à GOSUB 90 


40 Q=2 & X=1 à GOSUB 80 à AS=ASECS & A=A+37 & N=N*2+37 à Q=3 à SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à CS=CS[S*FLAG(5)+1] @ POKE DTHS(A),CS @ A=A+16-5*FLAG(S,0) @ NEXT X @ Q=4 


60 DISP DTHS(X)[3); @ INPUT %: ",P$[1,MOD(N,16));C$ @ GOSUB 90 

70 POKE DTHS(A),C$ à POKE DTHS(B),AS @ CFLAG -1 & END 

80 DISP DTHS(X)[3]; @ INPUT ": ",PS;CS 

90 DISP DTHS(X) [3]; & INPUT * sm ","---#;DS 

100 M=S à FOR 2=1 TO LEN(CS) & M=NUM(CS[Z))#+M+1 @ NEXT Z 

110 1F DS=DTHSC(MOD(M,4096))[3) THEN GOSUB 130 @ S=M @ RETURN 

120 DISP “Erreur de somme" & BEEP @ P$=C$ & POP & ON Q GOTO 30,40,50,60 
130. Phat-ccorsnnassmeree " @ RETURN 


oo 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 


007: 


008: 
00C: 
000 : 
00€: 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
010: 
01E: 
O1F: 
020: 
021: 
022: 
023: 
026: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02c: 
02: 
02€: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 
036: 
037: 
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0123456789ABCDEF sm 


34841425C4548502 35E 
802E001021915068 6AE 
5€4001E000000000 9F2 
FE0000000800001F D4C 
F318F9614000328F O0F 
38F14A110810AD23 479 
0705328F88F07911 82C 
11AD75407A101743 BAF 


: 1101401C81500000 F1A 


71450375FF864834 297 
5655581008355654 5EE 
5810002455565870 938 
0026555658700836 C8D 
5556581008364545 FE3 
4A30000449726000 336 
0808094A2C180814 69F 
A464242008355455 9F9 
581000054C714000 D3F 
0C31426040700832 098 
41414A70002078A0 3F3 
2F30000000000000 71E 
0000000000000000 A2E 
0000000000000000 D3E 
0000000000000000 04€ 
0000000000000000 35E 
0000000000000000 66€ 
0000000000000000 97E 
0000000000000000 C8E 
0000000000000000 F%Æ 
0000000000000000 2AE 
0000000000000000 58BE 
0000000000000000 8CE 
0000000000000000 BDE 
000000000000080€ F09 
1A28080008080A2C 273 
180008040€340800 5BC 
08001E3018000000 8F6 
0000000000000000 C06 
0000000000000000 F16 
0000000000000000 226 
0201000000010200 53C 
0000000201020000 851 
0001000100000002 865 
0102010000000000 E79 
0000000000000000 189 
045€755142400101 403 
0101010000000000 7E8 
0000000000000000 AF8 
0000070507000000 E18 
00000000083444C4 159 
4440007901112D70 489 
0500750509700000 803 
0070000000384540 846 
4020014€322E3140 E9A 
084E794142400000 1EA 
00000000002€4559 528 


ID#E1 624 octets 


FORMALEX 


3200000000000000 830 
0000000000000026 855 
5556587008365556 EB4 
5810083645464830 205 
0832414248700024 546 
5655587008345655 8A3 


: 5810083446454830 8F2 


0C3042414C700026 F47 
5556587008355654 2A4 
5810083546444830 5F3 


: 0C3142404C700025 949 


5455587008355455 CA3 
5810083544454830 FF1 
0C3140414C700875 353 
14141870000A4972 6A4 
40000€3159454E30 A04 
OC7A0F7949400024 D7C 
5554587000084A71 008 
40000C523A262010 439 
0424587458400875 790 
1415187000094A70 AEQ 
4000083544454830 E24 
0C3140414C300€74 18€ 
5655545000054071 4E3 
40000 50C 


0123456789ABCDEF sm 


64F4250414C45485 385 
802E002021915068 606 
093001E226200000 A14 
F830000000000000 D4F 
066100F110EA200F 0C2 
020€C100F130€ 110 42€ 
OF24070000FD3454 7AF 
E445542542228345 819 
43555255432064F4 EBC 
25041445426420255 1F5 
4445534544252835 552 
0514345442621FF0 887 
48F830801368F534 CLE 
81137C2109134135 FAC 
038508418423102A 312 
ESCC4E2851CC1811 68C 
4E965F08708EE 785 A64 
05808408521C114D DCA 
51086011861C0862 136 
70171CF018118F8C 4CD 
6314400017F13713 830 
51098F064A173004 897 
8231025908F40581 EFF 
ccSér01411714F11 281 
98F814811368408F 616 
064A180781818D91 9A7 
F80842274508F130 D35 
B0137135C21098F0 OAS 
64A1118C642D8A88 43A 
188E31E2ADO0A81C 7F8 


ID#E1 454 octets 


STRUC1 


81C787F8508F7B18 BAA 
18FE838180C32F08 F5E 
F8Cé315598A80917 2F8 
F100018004490842 66F 
27ADF769€119110E A10 
244EE24FD10ADA13 DBF 
416F41013618495F 14E 
213288EF8119AF00 503 
A137135EA81C1188 88C 
B6348A2A3ELBAB33 C34 
EAF8081088FE6CE0 022 
2010808E57320110 381 
118E2C0751011A13 707 
Sécce31528039390 A9C 
0731026620148171 DFB 
1481619661FD4580 171 
14c161CC57FCF8AF 541 


: AD018422730F088F 8E1 


8308006AD00A81C1 CA3 
37135c2C20788497 039 
E9€91353F02F312€ 3DA 
2C2A383920414896 76C 
261850CD4801715C AE6 
E1104241108A0012 E49 
71C11488F68F6962 1F9 
710052F4818709CC 597 
c10051C1188A160E 913 
SESD4CCD81351CF8 CE 
F81381AF680832F0 09C 
F 0E3 


0123456789ABCDEF sm 


3545255534130202 341 
802€003021915068 693 
425001E246400000 904 
F830087000000000 D1E 
06000002309F 1000 095 
6101A3000520C030 3F2 
00900FA3000554E4 784 
442490C4541465546 AEA 
4825540554144544 E44 
955E44596C454975 1CB 
8494C454341FF306 551 
001304758494C454 BAE 
c81408E6F6022554 C2F 
05541445C3150ECE FB4 
4c454146554CF160 331 
B8E6F60254€44402 6CA 
758494C454CFFO04 A76 
008€30013618498F DFQ 
214413670126E02F 164 
3092094371203130 4A3 
22311E2080A93908 810 
701220321088FA88 8A4 
110813788700C988 F48 
89C0818198F21441 2F3 
34718143118698F2 667 


ID#E1 656 octets 


1461366E40136104A 907 
18198F21422F3097 D46 
E8111A13686F927A 0D8 
2042213610A8F9SE 44F 
FO11A1348FB7EFO 7F3 
121308D7E47084A8 B72 
6éFOO86D0087A001F EF7 
087F22030214B0E0 268 
GADC1FD55F214713 602 
517E143F434412E0 979 
8A2400203403008F CD2 
2007801136798058 02D 
213610A1B198F214 390 
22F30977D011A136 712 
&DB4AB0D2E610A86 
D011F765F2147661 
020321088FAB8111 19F 
37C2D72031FE8F99 54A 
AB04A03160658E 16 8c1 
1331E34231521916 C13 
EOY1AE610A6D1022 F97 
312423916FO11ACE 317 
BAADO10A713069AF 688 
16365BEB8F681F08F A65 
19080042E5A091CC E06 
011091C400302183 14A 


BE 


: DO14AD8132C01300 4BD 


18031F808DE3F801 85F 


: 361B198F214401FD BE9 


1003D1001361B698 F46 
F21447FCF4E02F30 2F1 


: A20943A0314063BD 66€ 
: 8701220321088FAB 9F3 


81108137887DDC98 DA1 
BB60DB1B198F2144 158 
1641461367A3F560 407 
641E18198F214210 83C 


: 22F30A68CD701009 BCO 


01001322F30A714F F25 
816136696E7E0009 290 
E000773F7C2F4412 626 
F304A94321309943A 9A0 
031506A00D2E610A D27 
86D011F765F21476 OAD 


: 61020321088FAB81 41E 
: 1137C2D71B198F21 7AB 


461362031FE8F99A B3E 


: 804A03150668C161 


EAD 
331E24231521912D 200 
3223154239120322 549 


: 3144239127122313 889 


423912A0716E68AF C17 
ANAE6TOAGFEFI1AC FD4 


: ETOABAE1E704E6BC 39A 


C8D30350038FA2C2 72D 


: OFE1E34E0000208D ABB 


5303018503397584 EO8 
94C454298F324508 184 
FCE2508DE6A208D3 542 
9450F 65F 


Y LINKLEX 


2ERBERSSE 


001 
002 


.. 


SSSESEBRE 


00C: 


8 


O0E : 
00F 
010: 
011: 
012: 
013: 
016: 


01234567B89ABCDEF sm 


: C494E4B4C4548502 392 


802E004021915068 6E5 


: SA1001EC4D400000 AS51 
: F020000000000000 D79 
: O9E000FFO082000F OF3 


BC4142454C442C49 47D 


: DéE4SGD4F4 DL AFF 842 


418F13DB0137135C BC3 


: 20681C1018507270 F16 


444AE531A2961831 290 
19E2D5D231818816 61E 
2313088522071351 968 
CFD48FB13B1AF68D D4C 
832F00142E840712 OC5 
05C0111E4D85EC85 45F 
O7D004EE119E2D55 7F8 


: AB3102AE5CC40014 B88 


F17187090965DE01 F10 
9616E014118F130B 29A 


: DAF1D881DD2E688D 66A 
: 0514331D3966A0CD 9EF 


1711433120885333 D3E 
06881B2313296222 OA1 


: 8F67081581312096 412 


58133853523916E0 77F 


: 13709C9137D12046 BOB 


S8F064A1C9109850 EB8D 
BF7B1818FE83B18D 248 
C32F0 36E 


1D#50 1542 octets 


0123456789ABCDEF sm 


: D475020202020202 340 


802E005021915068 694 
41C0005101000000 90 


: F710000000200000 CFO 
: OE&OOOFBD4&F4C454 093 


7545101FF9694000 402 


: 1181351121091378 763 


B6811351083924A3 AD6 
75D40215D9004111 E36 


: 361BBB8F2144840A 1CC 
: FOAF170238F130B0 56E 
: AF2D681EB8AE908D9 938 


1FBOCE10814B7CE2 CED 


: 5133182962F03192 04A 


9621167DF7322171 38B 
é8DF21703375036F 73E 
A11011188AE80216 AAB 
F5110817114B8F67 E2B 
0B15C272925B2331 19C 
6A77B82503318296 512 
251319296203607F 883 


ID#E1 208 octets 


015: 
016: 
017: 
018: 
019: 
OA: 
018: 
01C: 
01D: 
O1E: 
O1F: 
020: 
021: 
022: 
023: 
026: 
025: 


027: 
028: 


O2A: 
028: 
02c: 


O2E: 
O2F: 


031: 
032: 
033: 
03: 
035: 
036: 
037: 
038: 
039: 
034: 
038: 
O3C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
068: 
049: 
O4A: 
0468: 
DC: 
06D: 
DE: 
04F: 
050: 





216AA0217EC273A2 
7B72646F1198F2BF 
2AE61097462BAEA 1 
236CE0217E927372 
7842691117114873 
1258573125F33182 
962F03192962B16E 
FE23726277327041 
17165FE237D42722 
27AF168C02378327 
01278E161DE 23792 
210A7C71B8AAB57BA 
15543182962D1319 
296272669ED230C8 
BFOD6BBE7EEF79A1 
7cc0171618E7BDF7 
6916A507FCF7A816 
9éE73CF7E 7168007 
7817C8186060604E 
7051188B8F214213 
0171AFDAFFAFDAFE 
8F499C08D612F087 
060690E84011BBAE 
A07990608F17114B 
71E052271E05F031 
829626065DD70707 
CEO65DD79B0BAAAO 


: 7F2064CD77206A6F 


B606067ADBS0AFOA 
F173A075B08AE 006 
D8073FE0SAF48F22 
3B18FFB6CO76808F 
A34C070707200017 
170AFDAFFAFDAFE7 
160058F363C00477 
4001AF1D3725014B 
20BF1ABBE71188AA 
0079301711487500 
SFD018D670813314 
AS8DC70818FC29E0 
20018F459E020011 
18CE1080105AF48F 
2238111A8F234C06 
FOOOSAFABFFB6COS 
F459E08F363C08FC 
29E0200401111891 
6067117FD0241000 
0000000180134100 
0000000110216410 
0000030489981840 
0000000009700184 
100000000389093E 
6100000000760041 
F41000000004 9995 
1051000000067379 
0335100000000006 
0235520000000092 
0832651000000004 
1490575200000000 
05838195 10000000 
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COF 
FC4 
35F 
6DF 
A49 
DA7 
12c 
49c 
81c 
BAB 
F27 
èCE 
62E 
988 
D84 
138 
4&E1 

888 
CoB 
FBA 
392 
733 
A81 

E39 
1A8 
524 
8E2 
cs 
020 
384 
T7B 
833 
E80 
298 
606 
97F 
D2B 
07A 
401 
7c1 
B1D 
EB6 
233 
5FD 


D04 
061 


6A3 
99 
D20 
066 
380 
6c 
A13 
D35 
061 
38€ 
68F 
9F7 


051: 0950988000713415 D43 079: 0000000279646742 E6C 0A1: 0520000000000044 FB1 


052: €19125191AC01611 082 07A: 0000000005275156 198 0A2: 2162520000000452 20€ 
053: éE68EFéé8820161A 461 078: 7410000000000952 4C7 OA3: 0622262510000000 608 
054: F215EE2001728636 7E6 07C: 7568400000000006 7FB 0A6: 0876458562520000 952 
055: 1420000000000072 806 070: 2004668420000000 828 0A5: 0000702681862520 C91 
056: 2761420000000086 E3A 07E: 0094871768420000 E73 0A6: 0000005509201E€62 FD& 
057: 8701C61410000000 179 07F: 0000095002F68420 180 OA7: 5200000000000222 2F1 
058: 4518962061420000 4 080: 0000004039461029 4F3 0A8: 5725200000000070 610 
059: 0000000342271410 7F5 081: 4200000005409621 824 0A9: 1012635200000000 941 
0SA: 0000000084993371 831 082: E694200000000028 868 OAA: 0571213635100000 C73 
058: 4100000000612%7 E63 083: 4112794200000000 E9%6 OAB: 0009559445635100 F88 
0SC: 4714200000000000 185 084: 0222912784100000 106 OAC: 0000000069879635 300 
050: 0125714200000005 480 085: 00000083816C4200 519 OAD: 1000000005580820 641 
05E: 6696911624200000 7F4 086: 00000550983196C4 86€ OAE: 6352000000000040 965 
05F: 0000337315624000 826 087: 0000000000014962 894 OAF: 51€6352000000000 CAQ 
060: 0000008121099624 E60 088: 7C42000000000000 EC4 080: 9681127351000000 FD8 
061: 2000000040898028 1A3 089: 6257C42000000000 201 081: 0000267816452000 314 
062: 6242000000000007 4C8 084: 7947146D42000000 551 082: 0000974908126452 650 
063: 4227241000000000 7EE 088: 0000085276041000 896 083: 0000000452985136 998 
064: 4099716341000000 82A 08C: 00000050342E6041 8E8 084: 4510000000000007 C89 
065: 0000800446342000 E59 080: 00000000083945F6 F31 085: 9564520000000000 FE8 
066: 0000001421156342 186 08E: D410000000000495 26C 086: 6721864520000000 321 
067: 0000000002104166 4AA 08F: 916€410000000779 580 087: 1830232964510000 650 
068: 3420000000000015 7C9 090: 892226E410000000 904 088: 0000000974C64520 9AS 
069: 2C63410000000003 AFF 091: 046092946E420000 C57 089: 0000000073402D64 CE3 
064: 5453063420000000 E43 092: 000004244156E410 F98 08A: 5200000002439861 018 
068: 0000742F63410000 184 093: 000000009710296€ 2E2 088: 5685200000000003 348 
06C: 0000233985273410 403 094: 4100000000000785 608 O8C: 1312695200000000 675 
060: 0000000069915373 7FE 095: F6£4200000000000 952 080: 040371E6A5100000 9C6 
06E: 4200000004509231 82C 096: 55207E4200000002 C92 08E: 00000835627A5100 DOC 
06F: 5734100000000064 ESA 097: 84073237F4200000 FEO 08F: 0000000022190000 02A 
070: 5369744200000000 192 098: 0000020911605200 30A 0CO: 0713415E€39125191 383 
071: 0052612754200000 4C4 099: 0000095301322605 63E OC1: ACO16316E68EF681 72F 
072: 0000627613754200 7FF O9A: 2000000000027024 95F OC2: 920163AF215EE200 AAF 
073: 0000000004525754 82F 098: 6052000000000046 C86 0C3: 1 AE 
074: 2000000000691515 ESC 09C: 01D6052000000000 F88 

075: 6641000000000748 190 090: 00541F6052000000 2F5 

076: 55D6642000000000 400 09€: 0000090227052000 620 

077: 0075227642000000 803 09F: 0000770904147052 95E 

078: 0000032216741000 820 0A0: 0000000009059157 C92 
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NN TLINISS US 57 ve "se 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
A PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


BULLETIN D'ADHESION 


n  ÉRRELLLLLLERIIERELLEILEELEEILEELLELI 

PRENOM |_1_[ [11 1_121121121_1212ILILI DATE DE NAISSANCE |_| 1/1 11/11 

ADRESSE |_|_1_1 1121111 AU ELI 
LÉLELLLLLERRETIELEEECEEECELREEELECE 
LLLLLELEL ER ERA LREREEEPELRERELE 

COMMUNE |_1_1 11 1 UTILE 

CODE POSTAL |_|_1_1 14 PAYS 121 EE TU TTC 

TELEPHONE DOMICILE |_|_J/] 11 1 1 1 121_1U SUREAU |_1_[/1 III III 

PROFESSION 

INTERETS 

MATERIEL MP EN VOTRE POSSESSIOM 

AUTRE MATERIEL MICRO- INFORMATIQUE 

COMMENT AVEZ-VOUS CONNU PPC PARIS CHAPTER ? 

PUBLICITE MAGAZINE 


AUTRE CLUS HP 
RELATIONS, MEMBRES DU CLUB, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU PPC PARIS CHAPTER ? 


Je souhaite achérer eu club PPC PARIS CHAPTER conformément eux statuts de 
l'essocistion. Au mieux de me connaissance, je déclare avoir le droit de fournir 
tous Les programmes et informations que je vous enverrai (sens enfreindre des 
obligations de secret à l'égard d'autres personnes ou organismes) pour 
publication dens le journal de liaison, sans obligations ni responsabilité 
d'eucune sorte (en css d'utilisation freuduleuse) de La part des dirigeants du 
PPC PARIS CHAPTER. 


DATE |_1_1/1_1-1/191_1L1 
SIGNATURE, PRECEDEE DE LA MENTION "LU ET APPROUVE" 


LE MONTANT DE LA COTISATION AU PPC PARIS CHAPTER S'ELEVE A 300.00 FF. 
ETUDIANTS: 250.00 FF. (JUSTIFICATIF INDISPENSABLE) 
PAIEMENT EFFECTUE LE |_{_|/1_1_1/19]_|_| A L'ORDRE DE PPC PARIS CHAPTER. 


PAR [ ] CHEQUE BANCAIRE N° BANQUE 
{ 1] CHEQUE POSTAL 3 VOLETS N° 
{ ] MANDAT LETTRE 
EVENTUELLEMENT: JE M'ABONNE A COMPTER OÙ |_|_|/|_|_[/191__| 
JOINDRE A VOTRE INSCRIPTION UNE PHOTO D'IDENTITE ET UNE ENVELOPPE TIMBREE A 
VOTRE ADRESSE. 








VEUILLEZ ENVOYER TOUTE CORRESPONDANCE A: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 





°1986 | | | $1.00 
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4h! Mais cest notre. 


ancêtre avec Sons 


up ul | 








FORTH 

Alain Herreman Développement limité 52 
Alain Herreman Parties de fractions 57 
Alain Herreman Tri 57 
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DEVELOPPEMENT LIMITE 


Ceux qui ont lu l'article sur Les D.L. 
(Développement Limité) dans Le JPC 28 ont du se 
rendre compte (qu'il était sméliorable) que sa 
structure même Le poussait à être réécrit en 
FORTH. 


La chose est faite ... 


D'abord Un avertissement : j'ai  écri ce 
programme de telle sorte qu'il puisse être Lu et 
compris par ceux qui le désireraient. J'ai donc 
été conduit à Le  fractionner au maximum, 
c'est-à-dire à introduire de nombreux "petits 
mots“ du style : 


COEFFA ; ou : IMPAIR? 1 AND ; ... 


Tous ces mots me semblent nécessaires à la 
compréhention du programme mais bien entendu, 
ils en ralentissent l'exécution, car à chaque 
fois cela augmente Le niveau de recherche du 
pointeur. 


Quand vous compilerez ce programme, il semble 
donc intéressant de supprimer ces petits mots en 
les remplaçant par leur définition, vous devriez 
ainsi gagner un peu en rapidité. Profitons d'un 
effort de clarté dans l'écriture pour expliquer 
ce programme. 


On  redéfinit une pile identique à celle en 
virgule flottante mais pour des polynèmes (après 
tout un D.L. n'est rien d'autre qu'un polynème). 
On crée donc les registres X,Y,Z et T (STACK) 
qui contiendront Les coéfficients des polynèmes 
(les coéfficients étant en virgule flottante, il 
faut réserver une place de 8 octets par 
coéfficient). Il nous faut aussi créer une pile 
qui contiendra Les chaînes de caractères 
associées aux polynèmes, elles seront stockées 
dans STACKS$. Tout ces espaces mémoire doivent 
être alloués Lors de La compilation, il nous 
faut donc définir un degré maximum (constante 
DEGREMAX), Les D.L. ayant un ordre au plus égal 
à ce degré maximum, mais rien ne nous empêche en 
changeant La valeur de La variable DEGRE de 
réduire Le nombre de coéfficients des polynèmes 


(bien sur DEGRE < DEGREMAX). De même pour [la 
longueur des chaînes on limite Leur Longueur 
(LENMAX) Lors de La compilation (dans le Listing 
42 caractères maximum). 


Fonctionnement de la pile : 


Nous sommes en présence d'une pile à quatre 
niveaux. 

Quand vous entrez un D.L. en X ce qui est X 
passe en Y, ce qui est en Yen Zet ce qui est 
en Zen]. Le dire semble déjà long, alors pour 
éviter tout ces mouvements on crée une variable 
PILENIV qui nous indique où se trouve le 
registre X, ainsi pour faire tourner la pile 
vers Le haut il suffit de décrémenter PILENIV, 
connaître La position de X c'est connaitre celle 
de YŸ etc. . 


Bien entendu Les opérations faites sur La “pile 
de polynômes" doivent aussi êtres faites sur la 
“pile de chaines". 


L'espace mémoire où sont ces chaînes (STACKS) 
contient les caractères précédés de La longueur 
de la chaine. Pour ces transports de chaînes il 
nous faut créer Le mot SMOVELEN, qui en plus de 
SMOVE qui déplace des chaînes (ne pas en faire 
un montagne |!) déplace leur longueur et Les 
stocke dans les deux octets qui précédent les 
caractères. 


Voyons maintenant La manière dont on a accès 
aux coefficients des pol ynômes. 


Pour rappeler le Iléme coefficient du polynôme 
en X, il vous suffit de faire X 1 COEFFa, et 
votre coefficient se trouvera en X de la pile en 
virgule flottante. 


De même pour stocker Un nombre qui se trouve 
dans Le registre X de La pile en virgule 
flottante en Y (par exemple) de notre pile de 
polynôme il suffit de faire Y 1 COEFFI. Je pense 
qu'avec ce qui précède La définition de ces mots 
ne pose pas de problème. 


IL devient très facile maintenant de créer les 
mots de manipulation de pile : 


oo 


ENTER, RUP, RDN, CLX, CLST, X<>Y 


(respectivement duplique Le polynôme de X en Y, 
fait tourner La pile vers Le haut, idem vers le 
bas, “clear” Le registre X, “clear” La “stack*, 
échange X avec Y). 


Le mot REDIM nous permet de redimensionner les 
polynèmes tant que cela est possible (vous ne 
pouvez pas dépasser DEGREMAX). 


IL s'agit maintenant de rentrer tout les D.L. 
classiques ( EXP, SIN, LOG(1+X), SH, COS, CH, 
ATAN ATH, ASIN, ASH ). 


Quand on rentre un D.L. connu on se rend bien 
compte que toute une série d'opérations se 
répétera (manipulation de chaïnes...), pour 
cette raison on crée Le mot ?DEF ; ce qu 
diffère entre le D.L. de COS ou EXP (per 
exemple) c'est La définition des coéfficient et 
le nom de La fonction (1) (resp. COS, EXP). 


Le mot COS déposers sa chaîne et Le CFA de 
DEFCOS qui contient ls définition des 
coefficients en fonction de La puissance de x. 7? 
EF n'aura qu'à exécuter La définition de La 
fonction dont il connait Le CFA et à traiter Le 
nom du D.L. dont il æ l'expression. Voilà, je 
pense que cette structure évite eu meximm les 
répétitions inutiles. 


Le mot POLY (ne risque pas d'être un gros 
mot !) permet de rentrer un polynôme quelconque 
avec Le nom que vous désirez. Si par exemple 
vous voulez entrer Le polynôme: 3.2+x, tapez 
POLY puis à La question “nom du poly." tapez 
3,2+x, pour a(0) entrez 3.2, pour a(1) entrez 1 
(inutile de taper 1. (1 avec un point)), tout 
les autres coéfficients étant nuls, pour æa(2) 
tapez simplement END-LINE. 

Pour Les opérations sur les polynômes (+, %*, -, 
+, comp) je n'ai fait que traduire en FORTH ce 
que j'avais écrit en BASIC dans Le JPC 28, je 
n'en dirai donc pas plus. 


Pour changer le signe du polynôme en X (CHS) 
une solution surait été de faire une boucle avec : 


X 1 COEFFe CHS X 1 COEFFI 


—_———————_—_—Z—Z— 





(où CHS cette fois change le signe du nombre 
qui est en X de La pile en virgule flottante). 
Mais bien plus rapide est de se ramener à la 
structure d'un nombre en virgule flottante en 
mémoire (cf. manuel  FORTH/Assembleur). Pour 
changer Le signe il suffit de changer le 9 
(resp. 0) en 0 (resp. 9) de l'octet qui code le 
signe, TOGGLE fers cela trés bien. 


Enfin pour mettre sous forme de fraction un 
coéfficient, on a au moins deux possibilités. 


La première est d'utiliser comme dans la 
version BASIC (ne pas Lire l'aversion BASICI) le 
programme de Pierre David, on se servirait donc 
de BASICX. 


Cette solution cette fois me semble peu 
élégante car elle mélange deux langages, ce qui 
ne sers pas possible sur toutes les machines. 


La deuxième possibilité est de se servir du 
programme de mise en fraction en FORTH de Alain 
Herreman qui doit se trouver dans ce ruméro même 
(l'auteur ayant bien voulu me le communiquer en 
event première, je l'en remercie 1). Ainsi pour 
avoir La fraction du 3ème coéfficient du 
polynôme qui se trouve en X, tapez 3 FRC . 


Venons en pour finir à l'exemple nécessaire : 
si vous voulez Le DL de TAN tapez, en étant dans 
le voc. VOC-DL, SIN COS / puis tapez . ( dot ) 
vous aurez les coéfficients en eppuyant sur 
ENDLINE, si vous voulez La fraction du 4ème 
coefficient entrez: 


3 FRC c'est tout . 
Alain HERREMAN 


C opérations sur La pile en virgule flottante ) 
C seront notées (n1 -F- n2), n1 en X devient n2 ) 
DECIMAL 
VOCABULARY VOC-DL VOC-DL DEFINITIONS 

( On crée un nouveau vocabulaire VOC-DL ) 
VARIABLE PILENIV © PILENIV ! ( position du ) 

( registre X de La pile de poly. dans STACK ) 
VARIABLE DEGRE 5 DEGRE 1! ( DEGRE contient ) 

( l'ordre auquel doivent être fait Les ) 
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( calculs ) 

10 CONSTANT DEGREMAX ( degré maximal des poly. ) 
CREATE STACK  DEGREMAX 1+ 64 * NALLOT ( espace ) 
( mémoire réservée à La pile des poly. ) 

42 CONSTANT LENMAX ( longueur maximale des ) 
( chaînes caractérisant Les poly. ) 
LENMAX 4 STRING-ARRAY STACKS ( espace mémoire } 
( contenant les chaînes des poly. ) 
: BOUCLE ( --- n1 ) ( valeur revenant souvent ) 
( pour Les boucles ) 
DEGRE @ 1+ ; 
: NIVEAU (ni --- n2 ) ( retourne l'adresse ) 
( du registre caractérisé par n1 ; 0 pour X etc ) 
PILENIV @ + 4 /MOD DROP BOUCLE 16 * * 
STACK + ; 
( --- n1 ) ( renvoit l'adresse du reg. X ) 
0 #NIVEAU 
C---n1) 
1 ANIVEAU 
ÇC---n1) 
2 #NIVEAU 
:T (C---n1) 
3 #NIVEAU 
: COŒFFA ( edd n1 --- ) ( -F- n2 ) ( add est ) 
( l'adresse de X-Y-Z ou T, ni est Le ) 
(numéro du coeff., n2 est Le coeff. désiré ) 
COEFFI ( add n1 --- ) ( n2 -F- ) 
( stocke n2 dans Le registre d'adresse ) 
( add eu niéme emplaçement ) 
16 * + STO ; 
SMOVELEN ( str add --- ) ( voir article ) 
OVER OVER 2- ! SMOVE ; 
.DL ( affiche La chaîne du poly. qui est en X ) 
CR PILENIV à 1+ STACKS TYPE ; 
REDIM (ni ---) ( change l'ordre des DL ) 
DUP DEGREMAX > IF 
U. ." superieur a * 
DEGREMAX U. EXIT 
ELSE  DEGRE ! .DL 
THEN ; 
2 #NIVEAUS (ni --- str ) ( idem #NIVEAU mais ) 
( pour Les chaines ) 
PILENIV @ + 4 /MOD DROP 1+ STACKS ; 
XS (---str ) ( retourne La chaîne du DL en ) 


x 


.. 
< 


idem pour Y ) 


. 
nm 


idem pour 2 ) 


idem pour T ) 


COR RL LS, 2] 


CX) 
0 #NIVEAUS ; 
5: Y$S (C--- str ) ( idem pour Y ) 
1 #NIVEAUS ; 
1 2Z$ (--- str ) ( idem pour 2 ) 
2 #NIVEAUS ; 
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T$ (--- str ) ( idem pour T ) 
3 #NIVEAUS ; 
: BAS ( décrémente PILENIV ) 
PILENIV & ?OUP IF 
1- 
ELSE 3 
THEN PILENIV |! ; 
( incrémente La valeur de PILENIV ) 
PILENIV @ 1+ 4 /MOD DROP  PILENIV ! ; 
RUP ( fait tourner La pile vers Le haut ) 


BAS .DL ; 
: RDN € fait tourner La pile vers Le bas ) 
HAUT .DL ; 
: CLX  ( no comment ) 
BOUCLE 0 DO 
T 1 COŒFFA X ! COEFFI 
LOOP 


PILENIV @& 3 + & /MOD DROP  1+ STACKS 
PILENIV @ 1+ STACKS DROP SMOVELEN RON ; 
CLST  ( remet pile et chaines & zero ) 
STACK BOUCLE 64 * O NFILL 
0 XS$ DROP 2- CI 
0 YS DROP 2- CI 
0 Z$ DROP 2- CI 
0 TS DROP 2- CI ; 
: ENTER  ( duplique Le poly. en X ) 
X T BOUCLE 8 *  CMOVE 
XS$ T$ DROP SMOVELEN  RUP ; 
IFACT (ni---)(-F- nm) (nest ) 
€ FACT(n1) ) 
DUP DUP 1 © * IF 
DUP ITOF 1 DO 
1 1TOF F* 
ELSE  DRO 1. 
THEN ; 
. (affiche les coeff. du poly en X ) 
BOUCLE 0 DO 
CR X 1 COŒFFS ." a(" 1 . ." )=* 
F. KEY DROP 
LOOP 


.DL ; 
X@Y ( échange Le contenu de X avec celui de ) 
CY) 


BOUCLE 0 DO 
X 1 COŒFFQ Y 1 COEFFA 
X 1 COŒFFI X<Y Y 1 COEFFI 
LOOP . 
X$ SWAP OVER PAD SMOVE YS XS DROP SMOVELEN 
PAD SWAP YS DROP SMOVELEN .DL ; 


VARIABLE DEPOT ( sauvegarde momentanée d'un nbr ) 





VARIABLE VARIDEF 


.. … … 


.. 


———————————————————.—  ———_——————————————…— …—… _……"— .…" —"—… . _… … …"… …… … —_—.……—_.… —….…..….… …—…— 


( contient Le CFA de La def. ) 
( d'une fonction ; COS, SIN ... ) 
DEF ( voir article ) 
BAS BOUCLE O0 DO 
1 VARIDEF à EXECUTE 


X 1 COEFFI 
LOOP 
PILENIV @ 1+ STACK$ DROP  SMOVELEN . 
DL ; 
IMPAIR? Ç n1 --- b ) ( renvoit 1 si n1 impair ) 
€ O0 sinon ) 
1 AND : 
PAIR? (ni --- b ) ( renvoit -1 si n1 pair, ) 
€ 0 sinon ) 
IMPAIR? 1- : 
EXPDEF IFACT 1/X ; 


EXP " EXP“ ['] EXPDEF VARIDEF | ?DEF ; 


SINDEF DUP IMPAIR? IF 
-1. DUP 1- 2/ ITOF Y“X IFACT F/ 
ELSE DROP 0. 
THEN ; 
SIN "“ SIN" [('] SINDEF VARIDEF } ?DEF ; 
LOGDEF  DUP 1F 
DUP 1+ -1. 1TOF Y”X ITOF F/ 
ELSE DROP O0. 
THEN : 


LOG # LOG® ['] LOGDEF VARIDEF ! ?DEF ; 
SHDEF DUP IMPAIR? IF 
IFACT 1/X 
ELSE DROP 0. 
THEN ; 
SH * SH" ['] SHDEF VARIDEF ! ?DEF ; 
COSDEF DUP PAIR? 1F 
-1. DUP 2/ ITOF Y°X IFACT F/ 
ELSE DROP 0. 
THEN ; 
COS " COS" ['] COSDEF VARIDEF | ?DEF ; 
CHDEF  DUP PAIR? 1F 
IFACT 1/X 
ELSE DROP O. 
THEN ; 
CH ® CH" ['] CHDEF VARIDEF ! ?DEF ; 


ATANDEF DUP IMPAIR? IF 
-1. DUP 1- 2/ ITOF Y*X ITOF F/ 
ELSE DROP O. 
THEN ; 

ATAN " ATAN®" ['] ATANDEF VARIDEF ! ?DEF ; 


ATHDEF DUP IMPAIR? IF 
ITOF 1/X 


ELSE DROP 0. 


THEN ; 
ATH " ATH® ['] ATHDEF VARIDEF 1! ?DEF ; 
ASINDEF DUP IMPAIR? IF 
DUP 1- DUP DUP IFACT 2. ITOF 
Y°X F/ 2/ IFACT X°2 F/ ITOF 
F/ 
ELSE DROP O. 
THEN ; 
“ ASIN“ ['] ASINDEF VARIDEF 1! ?DEF ; 
DUP IMPAIR? IF 
-1. DUP 1- 2/ ITOF Y*X DUP 1- 
DUP DUP 1FACT 2. ITOF Y°X F/ 


: ASIN 
: ASHDEF 


2/ 
IFACT X°2 F/-ITOF F/ 
ELSE DROP 0 
THEN ; 


ASH  " ASH* ['] ASHDEF VARIDEF ! ?DEF ; 

POLY  ( permet de rentrer un poly. quelconque ) 
BAS X BOUCLE 16 * O NFILL 
X$ DROP DUP CR ." Nom du poly : # 
EXPECT96 2- SPAN & SWAP CI! DEPTH DEPOT ! 


BOUCLE 0 DO 
." ac" I U. ." )=" QUERY 
#TIB à 1F 
INTERPRET DEPTH DEPOT & - IF 
ITOF 
THEN 
X 1 COEFFI 
ELSE LEAVE 
THEN 
LOOP 
DL ; 


CREATE SCRATCH1  DEGREMAX 1+ 16 * NALLOT 
CREATE SCRATCH2  DEGREMAX 1+ 16 * NALLOT 
CREATE SCRATCH3  DEGREMAX 1+ 16 * NALLOT 
: / (divise Le poly. en Y per celui en X ) 


SCRATCH1 BOUCLE 16 * O NFILL 


-1 BEGIN 
1+ DUP X SWAP COEFFAa X=07 1+ 
UNTIL 
BOUCLE DEPOT & DO 
Y 1 COEFFS  X DEPOT à COEFFa 
F/ 


SCRATCH1 1 DEPOT & - COEFFI 
0 DEGRE & 1 - DO 
Y J 1 + COŒFFa X DEPOT à ! + COEFFe 
Y J COEFFA F* X DEPOT & COEFF& F/ 
F-  Y J 1 + COŒFFI 
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.. 


. 
. 


-1 +LOO0P 
LOOP 
BOUCLE 0 DO 
SCRATCH1 1 COŒEFFà 
LOOP 
M (M YS SE )/(" SA XS SE " )" SA 
2DR®P 


Y 1 COŒFFI 


CLX ; 


COMP ( compose Le poly. en Y par celui en X ) 


Y O COŒFFA X=07 1+ IF 
CR ." Y(0)#0" EXIT 
THEN 
SCRATCH2 BOUCLE 16 * O NFILL 
BOUCLE 0 DO 
Y 1 CŒFFA 
LOOP 
X O COEFFS  SCRATCH2 O COEFFI 
BOUCLE 0 DO 
X 1 COŒFFQ Y 1 COEFFA F* 
SCRATCH2 1 COFF@ F+ 
SCRATCH2 1 COEFFI 


SCRATCH1 L COEFFI 


LOOP 
BOUCLE 2 00 
BOUCLE O0 DO 0. 
1 1+ 0 DO 
Y 1 COFFa 
SCRATCH1 J I - COEFFS 
F* F+ 
LOOP 
SCRATCH3 ! COEFFI 
LOOP 
BOUCLE 0 DO 
SCRATCH3 1 COEFFA 
Y 1 COŒFFI 
LOOP 
BOUCLE 0 DO 
Y 1 COŒFFA X J COEFFA F* 
SCRATCH2 1 COEFFA F+ 
SCRATCH2 1 COEFFI 
LOOP 
LOOP 
BOUCLE 0 DO 
SCRATCH2 1 COŒFFS Y 1 COEFFI 
LOOP 


XS # [" S<£ YS S>£ " ]" S<& 2DROP CLX ; 
CHS ( change Le signe du poly. en X ) 
X 15 + BOUCLE 0 DO 
DUP 9 TOGGLE 16 + 
LOOP DR 
M -(" XS S>& ® )" S<& 2DROP .DL ; 







Vous ny 
CouPerez- PAS 
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.. 
* 


+ 


: FRC 


( multiplie Le poly. en X par celui en Y ) 
BOUCLE 0 DO 0. 
1 1+ 0 DO 
X 1 COŒFFa 
COEFFa 
F* F+ 
LOOP 
SCRATCH1 1 COEFFI 
LOOP 
BOUCLE 0 DO 
SCRATCH1 1 COEFFAa 
LOOP 
M O(NXS SE tm SE YS SE " )" S<& 
2DROP 


YJ1- 


Y 1 COEFFI 


CLX ; 
( additionne Le poly. en X avec celui en Y ) 
BOUCLE 0 DO 
X 1 COŒFFAa 
Y 1 COEFFI 
LOOP 
YS "+" S<& XS S<& Z2DROP CLX ; 
( soustrait Le poly. en X à celui en Y ) 
BOUCLE 0 DO 
Y 1 CŒFFàa 
Y 1 COŒFFI 
LOOP 
YS " -(" S<& XS S<& " )" S<& 2DROP CLX ; 
(ni --- ) ( donne La fraction du ) 
( coeff. d'ordre n1 du poly. en X ) 
( utilise FRC qui doit se trouver dans le ) 
( vocabulaire FORTH, voir article ) 
DUP DEGRE à > IF 
U. ." c'est trop grand." EXIT 
THEN 
X SWAP COEFFA FRC 


Y 1 COŒFFa F+ 


X 1 COŒFFe F- 


PAD EXPECT96  .DL ; 


& 





PARTIES DE FRACTIONS 


Je connaissais deux programmes de mise en 
fraction d'un nombre décimsl, l'un de 
Jean-Jacques Dhénin peru dans son Livre sur La 
41, l'autre, en BASIC, de Pierre David paru dans 
La célèbre revue JPC (no20). 

Ces deux programmes sont très bons, mais Les 
auteurs ne pouvaient pas nous expliquer Leur 
fonctionnement ! 

Par conséquent, je vous propose un programme de 
mise en fraction en FORTH dont Le fonctionnement 
est compréhensible par toute personne ayant 
suivi une classe de 6ème même moyenne. 


Si on appelle X Le nombre décimal que l'on 
désire mettre sous forme de fraction, notre 
problème se ramène à trouver Les plus petits 
entiers À et B vérifiant X=A/8. 

Maintenant, je ne pense troubler personne en 
écrivant A=BX, il ne nous reste plus qu'à faire 
varier B dans l'ensemble des entiers naturels 
«B=1,2,3,6,...) et dès que Le produit BX est 
entier, on a notre couple (A,B). Voilà Le plus 
compliqué est compris, maintenant il ne s'agit 
plus que de “remarques*. 


Première remarque: si vous espérez tomber sur 
un entier en faisant Le produit BX, vous pouvez 
laisser votre programme tourner très Longtemps. 
Nous considérerons donc qu'un nombre est entier 
si sa partie fractionnaire est inférieure à 
0,000001 ou supérieure à 0,999999. 


Deuxième remarque: si Le résultat que l'on 
cherche est par exemple 3/1000, B devra varier 
de ‘1 jusqu'à 1000, ce qui peu paraître un peu 
Long. Donc quand X est inférieure à 1 (i.e. B>A) 
le plus rapide est de faire varier A plutôt que 
B (A=B/X), dans notre exemple on aura Az3, ce ce 
qui sera moins Long que B=1000. 

Ceci étant vu, il n'empêche que si La fraction 
que vous cherchez est 1000/1001, il faudre 
attendre que notre boucle s'effectue mille fois, 
d'où l'intéret d'une méthode magique... 


Alain HERREMAN 


eo 


: FRC 
X=0? 1F ." O0" EXIT THEN 
O0 0. X<>y X<Y? IF  1- THEN FABS 
0 1. X>Y? Xe>Y IF +  1/X THEN 
O BEGIN 
4+ DUP FENTER  ITOF F* FENTER FP FABS 
000001 X>Y?7 RDN .999999 X<Y? +  RUP 
UNTIL 
RUP .1 F+ IP  ROT IF ."-" THEN  SWAP 
IF .  ."/"  F. 
ELSE OF. .*/*  . 
THEN ; 


TRI 


Dans Le numéro 30 de JPC je vous proposais un 
programme de tri dans La pile en FORTH, ce 
mois-ci je vous propose Le même programe, 
toujours aussi inutile, mais bien plus rapide 
puisqu'il s'agit d'une primitive FORTH. Quand je 
dis plus rapide je veux dire qu'il trie 100 
nombres en moins de 2 secondes! L'algorithme 
différe un peu de celui utilisé précédemment, 
mais un autre membre du club a publié un article 
qui explique Le principe du tri selon cette 
méthode, je me contenterai donc de vous renvoyer 
à l'article de Jean-Claude Foures dans Le JPC 
n26 page 63. 


Alain Herreman 


FORTH 

WORD ‘SORT! 
CO1EX 

RO=C 

R12C 

CD1EX 

LC(5) #2FB11 
CDOEX 
A=DATO A 
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CD0EX 


La ÉAISTAL SA opstr 
?7C>sA À , . 1 FAcxAno 
han informatique 


Ps L syetèmes informatiques 
L8L1 LC(5) #2F811 Imtertaçage a électronique 
epphications techniques 
CD0EX KRISTAL. enorme de Ces Lire MEM0 MEYLAM 
instrumentation CORRE L'IEPPTLE R LE LL 1] 
A=DATO A joie 
CO0EX téi : 76 90 38 13* 
ADIEX SIMPLE COMME HPIL 
LBL2 D1=D1- 5 
AzDAT1 A L'HPIL ou interface Loop est un moyen simple, économique, fiable 
1=01+ 5 pour relier des périphériques autour d'un contréieur. 
D En complément à la gamme de périphériques existants Chas AENLETT- 
C=DATI A PACKARD : Laprimanta, unité de disque , centrale d'acquisition, 
voltmétrs, interfaces HEPIL RS 132 ou MPIL MPIS. 
7C>zA À mure SA propose une panoplie de cartes industrielles de faible 
GOYES C>sA 1) Carte COMPTEUR intelligent K009 
DATI=A A comptage ner nr. sw peer une fréquence 
. è . t € …qe rogrammable 
D1=01- 5 da 10 millisecondes à quelques ‘ours. cree carte us éventuel 
lement interrompre le contrôleur quand le comptage est terminé. 
DATI=C A 
2) interfacs BCD-HPIL K010 
D1=01+ 5 
Ca boiti: ls connex F , 
C>zA D1=01- 5 la sheta LE 86 où DL a rene amiiod d'a sertie BCS 
parallèle d'un sax: de # digits. 
CzRO Tres polyvalente, estte interfses se configure par logicial et 
o c A sien tr en sortie, pour commande éventuelle de voyants, 
= Leds . 
ADIEX 3) interface HPIL-PLOTTER KO11 
CzA A Les eg isposant d'une entrée pris de type : 4 
CENTRON : Imprimante, Trac ° = int dans 
ADIEX boucles MPIL qrics ‘= sie "re MCE 2 
Catts interface assure éqaiement ls transformation des commandes MP- 


en langage plotter TANDY, CANON, SHARP... 





?C#HD A h 
GOYES LBL2 4) MODEM neur ctasau nchet KD12-KO13 
LC(S) #2F811 Ce sodes sonforss aux normes Européannes 
.CCITT V 11 (300 bauds duplex intégral) 
CD0EX .CCITT V 13 (600 bauds semi duplex et 1100 bauds) 
assure la détection de sonneries, la réponse et la numérotation auto 
matique. 11 détecte les erreurs de transaission. Il est remarquable 
A=DATO A pour sa faible conscamation 110 mA en fonctionnement et 3 mA en 


veille. Ca soden se présente sous forme de 1 cartes au format 
CD0EX Europe 110 x 160 ma. Une des cartes est destinés & 
sur le réseau commuté. 


branchement 





C=RO ; 
CD1EX 5) interface MINITEL K018 
fransforse votre HP 41 où HP 71 et 73 en lui offrant un véritable 
D1=D1+ 5 Clavier écran et un modem agrée PTT. 
C1EX 6) Coffret da conversion da données sur 12 bits 
RO=C petits Centrale d'acquisition, alle est composée de : 
. 1 entrées sidies : à 10 volts 
. . 
?C#A A . ï tie tn losi dre da 9 à 19 volts 
Les 7 relais du multiplexeur d'entrée sont utilisables en actuateur. 
GOYES LBL1 / 
FIN CzR1 7) Cans sarakèle KO17 
C1EX 10 lignes d'antrée sortie bidirectionnelles dont 1 intarruptibles 
(disponible fin décancre 85). 
RTNCC Coller un relais, lire la position d'un switen interrupteur “simple 


comse E7IL*. 


8) Clawier 16 touches at affichage 20 carncttres 


Pour la visualisation et la saisie de données en milieu industriel 
(disponible fin janvier 1985). 












2%207r 

“307 

Plotter K011........ 45007 

Kodes on coffret KO12.............. ‘7307 

les 1 cartes nues 400 Fr 

+ Minitel KO16........sssssssesssnssss 15007 
. 1 500 F environ 

- Centrale d'acquisition. 19 500 Fr 


Cas prix sont des prix unitaires, des remises sotivantes sont con- 
santies suivant les garanties, 


ILD : MAISTAL SA reste à votre disposition pour développer touts 
carte MPIL ou adapter le MPIL sur un de vos équipements axistants. 
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